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78, Bd Montebello, 59000 LILLE - Tél. 20 93 66 66 
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MUSCLEZ 

vos ma... 

Individuels 8 Bits 

0 . MICRO ORDINATEURS 

Toute la gamme des MZ. 

1 . MONITEURS 

Vert, Ambre, Couleur, H. R. 

2. IMPRIMANTES , 

aiguilles, 

graphique, courrier, couleur, laser... 

3 . TABLE TRAÇANTE 

Couleur, 

multiplume... //« 

4 . DISQUES 

5. DIVERS 

Carte RAM, Graphique 80B - Carte 80 
colonnes MZ 700 - Interfaces 
CENTRONICS - Réseau de micros 
scolaires - Maintenance... 

6 . FOURNITURES 

Rubans, papiers, disquettes... 

Manuels BASIC, CPM, DOS, DBASE... 





VOTRE MZ 
S'ENNUIE? 



Multiposte 1 6 Bits 

MZ 5600 


Monoposte 8 Bits 

MZ 700, MZ 800 
MZ 80B, MZ 3541 

7. SYSTEMES D'EXPLOITATION 


MERCURE 
CPM EOS 


MOS Mercure 
DOS MSDOS 
PROLOGUE 



8 . LOGICIELS, 

LOTUS, 

MULTILOG... 

9 . PROGICIELS w- 

sr* 1 ** 

Stock-facturation. i ' 

Gestion de production. J) & ' 


S-o 



Les solutions 
existent chez 
BECYi 

Consultez-nous... 


Un CHOIX de PRIX, 
c'est BECYI 


COUPON REPONSE à retourner à BECY avec timbre à 2,20 F 


Je désire recevoir la documentation surfil PH 1~2~1 [T] [T] [5] [6] \T\ [8] [9 


Je commande le logiciel EXPER 700 ci-joint un chèque de 30 Francs. 
Nom Adresse 


Signature : 


Code Postal i i i i i i ville 


MATERIEL POSSEDE 


TELEPHONE 
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EXCLUSIVITE CLUB 4/5 

LIBRAIRIE/ANNONCES CLUB 6 

PC APPLICATIONS 7 


^ NOTRE COUVERTURE : 

L'ordinateur dédié aux calculs scientifiques et 
à la communication. Il est doté d'un Basic très 
puissant de 59 fonctions scientifiques inté- 
grées, de cartes mémoires de 4 à 1 6 ko, d'une 
interface RS 232 permettant la connexion à 
tout système informatique, d'une interface 
magnétophone et imprimante... Et il tient 
dans votre poche! , 
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LABEL ET ETIQUETTES 22 RELOGEUR LM 

FONCTION 23 

INITIATION AU LM ESR-H 2 e partie 24/25 PC 1401 — — — — — 

LABY 3 D 

PC 1500—— — —— — — — REDEFINITION DE CLAVIER 

3 UTILITAIRES EN BASIC 26 HISTOGRAMMES 

ASTUCES 27 

LANGAGE MACHINE 28 PC 1450 — 

CONSIDERATIONS TEMPORELLES / PC AVENGER 

PETITES LETTRES 29 

ECRIRE DES TITRES / PLANET FIGHTER 30 


42 à 44 


PC 1261 

EPHEMERIDES 


32 à 40 


PC 1260-61— 

SOUND MACHINE 
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MZ 700- — — — — MZ 80B — 

ASTUCES 52 TABLEUR. 

AMELIORATION K. BASIC 53/54 

FORTH (NIVEAU 2) 54 à 56 


MZ 700/800— 

BUDGET/BOURSE 


56 à 60 


MZ 800 

CARACTERES GRAPHIQUES . 
TRAITEMENT DE TEXTES . . 


TOUS LES MZ 





SHARPENTIERS 

DESSINATEURS... 

Vous nous en faites souvent la remarque, notre 
bulletin manque souvent de dessins ou d'illustra- 
tions plus ou moins humoristiques permettant 
d'égayer et de rendre plus abordables des articles 
très techniques. Alors, nous avons pris notre 
crayon et nous sommes essayés à quelques ébau- 
ches... qui ont toutes lamentablement péri dans 
la corbeille. Oui, autant vous l'avouer, nous som- 
mes nuis en dessin. C'est pourquoi nous avons 
pensé à vous, les génies du crayon mine, les rois 
de l'esquisse, les dieux de la demi-teinte qui ne 
demandez qu'un petit morceau de page blanche 
pour exprimer votre immmmmmmense talent. Non 
seulement le Sharpentier vous permettra de pas- 
ser à la postérité dans le monde entier (ou pres- 
que...) mais, en plus, chacune de vos œuvres vous 
rapportera un superbe cadeau Sharp. Tous les 
styles, tous les sujet sont permis... à vos crayons ! 

ET BENEVOLES... 

Nous vous rappelons également que la salle du 
Club vous est ouverte tous les mercredi, de 14 h 
à 1 8 h et nous sommes prêts à acceuillir tout Shar- 
pentier qui désirerait nous assister dans notre 
tâche, oh combien difficile d'information et d'as- 
sistance aux Sharpentiers en difficulté ; particu- 
lièrement dans le domaine des PC, autres que 
1500. 

CRITERIUM SHARPENTIERS 

Les règles en sont très simples mais 
peuvent rapporter gros aux SHARPEN- 
TIERS courageux : 

1. Tout Sharpentier dont l'article, le 
programme ou l'astuce aura été publié 
dans le bulletin SHARPENTIER sera 
d'office inscrit au club, gratuitement, 
pour une nouvelle année. 

2. A la parution de chaque bulletin, 
l'un de ces auteurs se verra offrir l'un 
des plus récents produits SHARP. 
Vainqueur du numéro 1 5 : Jean Mil- 
let, auteur de plusieurs programmes de 
référence sur MZ-80B, dont le tableur 
de ce numéro, il gagne ainsi un 
MZ-820. 

Pour le numéro 17, il y a... le PC de 
votre choix à gagner, 

A vos claviers... 


LOGICIELS 

Nous vous rappelons que nous ne pouvons plus 
assurer la diffusion de logiciels selon le principe 
des logithèques de nos bulletins précédents. 

Cependant, nous nous efforcerons de vous pré- 
senter, dans chaque bulletin, un maximum de pro- 
grammes répondant au mieux à vos demandes. 

N'hésitez donc pas à nous faire part de vos besoins 
en logiciels et à nous faire parvenir ceux que vous 
avez créés pour en faire profiter l'ensemble des 
Sharpentiers. 


SHARP A LYON 

Lyon a accueilli officiellement le nouveau Centre 
régional Sharp le 19 novembre 1985. L'unique 
mission de ce centre est d'améliorer le service 
rendu par notre société à son réseau de distribu- 
tion. Il est constitué d'une salle de présentation 
de tous les matériels Sharp (bureautique) et de sal- 
les de travail. Vous pourrez vous y rendre pour 
découvrir les dernières nouveautés en matière de 
calcul. Informatique, photocopie et caisses enre- 
gistreuses, mais ne pourrez rien y acheter car la 
vocation de ce centre est d'abord d'informer et de 
former. 

A l'image de ce centre, d'autres du même type, 
seront ouverts, en 1986, à Bordeaux, Rennes et 
Nancy. 


EPF 1 500 

UN PROGRAMMATEUR 
D'EPROM INTELLIGENT 
POUR PC 1500 

L'EPF 1 500 et un périphérique intelligent con- 
nectable sur le PC 1 500. Ce produit est un pro- 
grammateur d'EPROM utilisable comme une 
mémoire de masse au même titre qu'une dis- 
quette. Le temps de chargement est cependant 
inférieur à celui d'une disquette. Cette fonc- 
tion permet à l'utilisateur de constituer une 
bibliothèque de programmes BASIC ou LM, ou 
de fichiers sur silicium ; support de faible coût 
et résistant aux environnements sévères. Dans 
un autre contexte, l'EPF 1 500 est capable de 
générer des textes hexadécimaux grâce à son 
éditeur et de les transcrire sur une EPROM ser- 
vant par exemple de générateur de caractères, 


Sharpentier Bouches-du-Rhôniens, je vous vois 
déjà pâlir d'envie à l'idée d'un super Club Sharpen- 
tiers dans votre région, rassurez-vous, nous y pen- 
sons également et vous tiendrons rapidement au 
courant. 



de moniteur, de générateur de systèmes auto- 
mates, etc. L'EPF 1500 connecte l'EPROM 
directement sur le bus du microprocesseur, les 
mémoires utilisables sont des EPROM 2716, 
2732, 2732 A, 2764, 271 28, composants très 
économiques et disponibleschez tousles reven- 
deurs de composants électroniques. La connec- 
tion est possible avec un PC 1 500 OU 1 500A 
muni ou non de l'interface CE 1 50. Un jeu d'ins- 
tructions BASIC spécifiques permet une mani- 
pulation très simple de ce programmateur, 
Avec l'EPF 1 500, vous pouvez mettre défini- 
tivement votre magnétophone à cassettes dans 



BUGS...BUGS...BUGS. 

Les « BUGS », ce sont les erreurs de toutes 
natures découvertes (trop tard !) dans notre 
bulletin. 

N° 2 

description du PC- 1500 
...8 bits à 2.6 MHZ. 

N° 3 

Page 1 3 : Graphisme. 

2000 : « Z » TEXT : LF 1 1 : GRAPH : FOR K = 1 TO 
2 : FOR J = 0 TO 100STEP 10 : Z=J : X = 100 : IF 
K = 2LET X = J : Z = 1 00 

2010 : GLCURSOR (100, 100+Z) : FOR 1 = 10 TO 
370STEP 10: LINE - (SINHX + 100, COS 
l*Z + 100) : NEXT I : NEXT J : NEXT K : TEXT : LF 
15 

N° 5 

Page 8 : clavier KATAKANA 
POKE &785D, &80, &NN 
POKE &764E, 4 OR PEEK &764E 
Erratum DUMP dans le n° 6 page 27 

Page 10 : PC-GRAPH 
200 code ASCII (hexj OA 
210 code ASCII (hex) OB 

Page 12 : BASIQUOI 

Si nouvelle ROM, supprimer le +1 dans 850 : ... : 
POKE A, &C0 : ... 

N° 7 

Page 1 2 : Analyse de PARETO 

3550: LINE (40,0) -(40, U), 7,1 
3560: LINE (40,U) - (0,U), 7,1 


N° 8 

TEMPTER 

Mode d'emploi de TEMPTER dans le n° 9 

N° 9 

Page 1 7 : Moniteur Hexa-décimal 
Pour le reloger voir le Sharpentier 1 1 

N° h 

Page 15 : Optimisation CE-159 CE-161 
Modifier le listing ainsi : 

X 1 04 : 38 STA VH 

Page 17: DUMP 

1 : INPUT « DE : » ; A, « A : » ; Z : A= (AOR 7) -7 : 
Z= (ZOR 7) -7 

2 : H = 0 : B$= « » : l = INT (A/256) : GOSUB 8 : 
I = AAND &FF : B$ = « : » : GOSUB 8 : B$ = « » : FOR 
A=ATO A + 7 : l = PEEK A : GOSUB 8 : NEXT A 
3: LPRINT «»;: I = HAND &FF : B$ = CHR$ 9: 
GOSUB 8: GOTO 1 + (A <=Z) 

8 : H = H + 1 : J = INT (1/16) : K = IAND 15 
9: LPRINT CHR$ (J + 48 + 7^(J >9) + 32* 
(J = 1 1 )) ; CHR$ (K + 48 + 7^(K>9) +32^ 
(K = 1 1)) ; B$ ; : IF B$ = CHR$ 9LPRINT 
10: RETURN 
Mad 


Tapez OFF OFF pour en sortir 

Page 20 : Inversion partielle 

Après 30 clignotements, il y a un retour avec J = 0 si 

aucune touche n'est appuyée. 

Page 21 : Détournement du clavier 
78C7 CPAOF 
78C9 BZR + 03 
78CB JMPE33F 


Page 23 : Morpion 
Tapez RUN et répondre par O 

N° 14 

Navigation astronomique 

Voici le mode Réserve : 

RESERVE 1 

Astr Sol Eto Pla Lun Pos 
Fl : RUN 212 
F2 : GOTO 238 
F3 : GOTO 436 
F4 : GOTO 291 
F5 : GOTO 442 
F6 : GOTO 82 

RESERVE 2 : 

Rout Lox Vtx Lim V,C Est 

Fl : RUN 643 

F2 : GOTO 656 

F3 : GOTO 700 

F4 : GOTO 725 

F5: RUN 155 

F6 : GOTO 99 

RESERVE 3 : 

Mare Hr Hre P, B 
Fl : RUN 11 
F2 : GOTO 32 
F3 : GOTO 470 
F4 : GOTO 480 
F5 : 

F6 : 

N° 15 

Page 60 : MONITEUR MZ 80K 

Pour sauvegarder ce moniteur, lire 5900 SV. MON 
N° 1 4 page 30 Navigation astro, ligne 59, ajouter un 
« Y » en fin de ligne. 






I * VOTRE BIBUOTHEQUE... 


PC 1350 MACHINE 
LANGAGE REFERENCE 
MANUAL 

Comme ses prédécesseurs, le PC 1 350 possède mainte- 
nant son manuel de référence. Il explique et commente le 
fonctionnement du microprocesseur SC 61860, et son 
implantation dans le PC 1350 (Pointeurs, Memory Map, 
adresse système). Une description HARD du PC et de ses 
périphériques complète ce manuel indispensable pour qui 
veut développer ses connaissances sur ce produit. Cet 
ouvrage (en anglais) peut également être utilisé par les pos- 
sesseurs de PC 2500 dont le microprocesseur, donc toute 
la partie LM est rigoureusement identique. 


l 

I 

I 




M 

ADRESSE 


vous prie de bien vouloir lui faire parvenir 
□/Recueil(s) des n° 1 à 5 des bulletins SHARPENTIERS 
/ au prix de 110 F. (port compris) 

Bulletin(s) SHARPENTIER n° 6 □. 7 □. 8 □, 9 C, 10 □ 
au prix de 20 F chacun 

Bulletin(s) SHARPENTIER n° 11 □, 12 □, 13 □ 

au prix de 25 F chacun. 

n° 14 □ 15 □ au prix de 30 F. 

Manuel(s) Langage Machine PC 1500 □, PC 1251 ü, 

PC 1350 □ au prix de 180 F chacun. 

C Manuel de référence MZ800 
au prix de 240 F l'un 
Ci-joint un chèque de francs. 


MANUELS L.M 



1 Ces 4 manuels, en Anglais, très bien documentés, sont des ouvra- 

I ges de référence et n'abordent pas l'initiation au langage machine. 
Ils sont disponibles directement au Club, le mercredi après-midi 

■ (exclusivement), au prix de 1 70 F (MZ800 : 230 F) l'un ; ou par cor- 
respondance au prix de 180 F (MZ800 : 240 F) (port compris). 

J Le manuel LM PC 1251 s'applique également à la série PC 14XX, 
aux PC 1260. 



Exclusivement réservées aux particuliers pour la vente ou la 
recherche de matériel d'occasion, votre annonce devra nous par- 
venir 1 mois avant la parution du bulletin. 

Elle devra impérativement utiliser l'original ou une photocopie 
de id grille ci-dessous (5 lignes de 40 caractères), à raison d'une 


case par caractère ou espace. Elle mentionnera, en cas de vente, 
le type exact de l'appareil, la date d'achat, le prix de vente ainsi 
que vos coordonnées complètes. 

Le Club se réserve le droit de refuser toute annonce ne répon- 
dant pas aux critères ci-dessus. 



Ci-joint le texte de mon annonce à paraître dans le prochain bulletin, accompagné de son règlement 
(80 F) à l'ordre du club des SHARPENTIERS. 


Vends ordinateur de poche Sharp Recherche interface pour drive MZ-80K Vends MZ-80B + Graph 1 et 2 + Exten- Pour accroître possibilité PC-1251 
PC-1261 - 10,4 Ko - + interface cas- + notice + disquette SP-601 5 ou mieux. sionRam + 2 floppies + imprimante P5 Recherche circuit Ram PC-1255. Faire 
sette imprimante CE-125 J. Inaebnit Terreaux 22 - 2300 La Chaux- + programmes : 9000 F M. Clôt offre à R. Barthélémy 66, boulevard 

- mai 85 - encore sous garantie - Prix de-Fonds - Suisse 51, bd A. Blanqui 75013 Paris - Tél : Sainte-Hélène - Le Mourillon - 83000 

PC-1261 : 1200 F 45.80.68.05. (le soir) Toulon - Tél : 94.42.47.93. 

-CE-125 :1000 F -Ensemble :2100 F 
-Tél: 47.23.75.92. 



LES TORTUES 
LUTTENT 
UN PC LES AIDE 


Marc Girondot a 2 passions : 
L'informatique et la biologie, in 
toute logique, Marc sut utiliser 
rapidement l'une pour servir 
l'autre. En voici un exemple 
concret. L'action se passe l'été 
dernier, en Guyane, en compa- 
gnie de tortues Luths et de leurs 
problèmes. 


La tortue Luth ( Dermochelys coriacea) est la plus 
grosse tortue actuelle, avec une carapace pouvant 
atteindre 1,92 m. Elle est classée comme « en dan- 
ger » sur le Livre rouge des espèces menacées 
(Red Data Book). C'est essentiellement l'homme 
qui a conduit les populations de cette tortue marine 
au bord de l'extinction, mais il semble aujourd'hui, 
alors que les massacres diminuent du fait de la 
législation internationale et des campagnes d'in- 
formation, que le facteur principal intervenant dans 
la survie de l'espèce est la très forte érosion de ses 
sites de ponte. En Atlantique, la Luth nidifie en 
beaucoup de points de la région Caraïbe et le long 
de la côte occidentale de l'Afrique. Les plages 
situées à la frontière guyano-surinamienne accueil- 
lent le plus gros cheptel de femelles de cet océan. 
Le taux de réussite d'incubation y est très bas : 
environ 4%. Afin de pallier cette perte considéra- 
ble, et tenter une restructuration des populations, 
une écloserie d'œufs a été créée au lieu-dit « Les 
Hattes », près du village de Ya :Lima :Po. Cet éta- 
blissement pilote a pu voir le jour grâce à l'aide de 
diverses associations dont la SEPANGUY 1 , Green- 
peace, le W.W.F. 2 . Les œufs, collectés lors de la 
ponte, sont très vite placés dans des couveuses 
de polystyrène, dont certaines sont thermorégu- 
lées (Fretey & Lescure, 1982). Ce contrôle de la 
température est important, car il a été découvert 
(Pieau & al., 1984) que celle-ci influe sur le déter- 
minisme du sexe de l'embryon pendant une période 
thermosensible. Malgré une surveillance encore 
difficile de l'humidité pendant l'incubation durant 
environ 70 jours, le taux de réussite en milieu arti- 
ficiel atteint d'ores et déjà 60 à 80%. La surveil- 
lance des 8000 œufs incubant en même temps 
dans cette écloserie est un travail astreignant et 
sujet à des erreurs. Le fait que cet établissement 
soit encore expérimental et serve de lieu pour des 
études embryologiques multiplie les facteurs de 


maladresse humaine et les mouvements d'œufs 
dans les couveuses. 

L'utilisation possible de l'informatique pour gérer 
une écloserie était testée pour la première fois dans 
le cadre de la campagne de la saison 1985. L'ordi- 
nateur de poche Sharp PC 1350 s'avérait pour ce 
rôle un partenaire presque idéal : 

• Peu de consomation de piles 

• très grande résistance à la chaleur et à l'humi- 
dité de l'air (80%) 

• encombrement minimal pour de très bonnes per- 
formances, ce dernier facteur est important car 
tout supplément de poids dans les bagages est très 
lourdement taxé. 

Par contre nous ne disposions pas de l'imprimante, 
et ceci s'est révélé gênant pour l'exploitation des 
résultats. 

Son travail consistait à avoir toujours en mémoire 
les différentes boîtes avec les dates de début de 
mise en incubation. A partir de ces données, on 
pouvait demander à tout instant où en était le 
développement des embryons de cette boîte. 
Puis une fois l'incubation terminée, il fallait qu'il 
garde en mémoire l'état des œufs, soient : 

• ECLOS 

• EMBRYONS MORTS A L'ECLOSION 

• EMBRYONS MORTS ENTRE 60 ET 70 JOURS 
D'INCUBATION 

etc. 

pour ensuite faire des statistiques sur ces résul- 
tats, moyenne selon : 

• ESPECE (LUTH, OLIVATRE, VERTE...) 

• TYPE DE BOITE (COUVEUSE NORMALE OU 
SOLAIRE) 

• MOIS DE MISE EN INCUBATION 

Pour la prochaine saison de ponte, il a été prévu 
un PC-1500 avec CE-150 qui pourra représenter 
graphiquement ces données. Le programme a 
même déjà été traduit et amélioré par le club, et 
le service rendu, déjà correct avec le PC-1350, 
pourrait être encore meilleur avec le PC-1500. 
Bien sûr l'informatique ne devrait pas s'arrêter là, 
on prévoit l'utilisation de PC-1500 pour enregistrer 
la température dans les boîtes d'incubation grâce 
à une interface analogique digitale. En effet, le 
PC-1500 se révèle être particulièrement puissant 
et moins onéreux que les systèmes existants. On 
suivrai en permanence la température, car nous 
l'avons déjà signalé, ce facteur est essentiel dans 
le fonctionnement de l'écloserie. Il pourrait être 
également envisagé de répertorier les tortues adul- 


tes marquées et examinées (dimensions, blessu- 
res,...) pendant leur montée à terre. Actuellement, 
les notes concernant ces tortues sont référencées 
sur des fiches manuelles et individuelles. Leur 
entrée en ordinateur est étudiée. Le but à moyen 
terme serait de stocker ainsi toutes les données 
se rapportant aux femelles de l'Atlantique fréquen- 
tant les divers sites de nidification. Lorsqu'une tor- 
tue sera revue, lors de ses déplacements et même 
en cas de perte de son étiquette, l'informatique 
permettrait de l'identifier par l'ensemble de ses 
caractéristiques. Ce système, vraisemblablement 
unique pour une population animale, facilitera le 
suivi de l'évolution de l'espèce et une meilleure 
compréhension de ses migrations. Pour ce faire, un 
disque dur sera nécessaire, d'où l'utilisation de MZ 
professionnels et non plus d'ordinateurs de poche 
de la série des PC. 
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Résumé : 

L'ordinateur de poche Sharp PC-1350 a été testé 
cette année pour gérer l'incubation artificielle 
d'œufs de tortues Luth ( Dermochelys coriacea) 
dans l'écloserie des Hattes-Ya Lima :po en Guyane 
française. 

Abstract : 

Sharp Pocket Computer PC-1350 was tested this 
year to manage artificial incubation of Luth turtle 
(Dermochelys coriacea) in hatcher of Hattes-Ya : 
Lima : po in French Guyane. 


1. Société pour l'Etude et la Protection de la nature 
en Guyane. 

2. World Wildlife Fund (Fonds mondial pour la 
nature) 

3. Laboratoire de zoologie (Reptiles & Amphi- 
biens), Muséum national d'histoire naturelle, 25, 
rue Cuvier 75005 Paris. 


Collecte d'œufs de tortue Luth pendant la ponte par des Indiens travaillant pour l'écloserie (photo Fretey- 
Greenpeace). 





Faisan! suite à notre premjer 
N°1 îfvdd un 2 e exemple de 

luHon du pH lorsd'une réaction 


1) CONFIGURATION DU SYSTEME 

• MZ 80K 

• Double unité de disquettes i f “ 

• Imprimante SHARP P3 j 

• Table traçante WATANABE WX 4671 : 

•Interface; convertisseur Ànaogique / 
Numérique , . . 

• pH mètre avec sqrtie enregistreur 

• Burette automatique PROLABO i 

• Agitateur automatique PROLABO 


2) AVANTAGES DU SYSTEME j j 

a) Le convertisseur analogique / numëriqiiie p er- 
met une mesure du pH rapide et statistique- 
ment plus rapide que toute mesure manuel e. 
in effet, le pH est saisi 30 fois par mesure et 
an cuelques secondes Temps j'agitaton du 
nilif !ü açidcjbaâquqh f 

d) Las relais électroniquas interf acés sut le MZ 
80K permettent dePILOTER et ROBOTISERIa 
maripulation el donc de montrer aux élèves 
l'une dèsappliçatic|ns les plus fréquentes du 
matériel informatique dans l'industrie et es 
laboratoires de recherche et d'analyse ; et ceci 
avec une grande simplicité au niveau du logi- 
ciel : quelques POKE bien placés et bien codés. 


l'acide etminoique 


Dans cette manipulation, la robotisation s'ef- 
fectue à 2 niveaux : 

• Pour l'écoulement discontinu et périodique 
ce la base dans l'acide à volume choisi : Mise 
en fonction de la burette automatique et arrêt 
tous les 0,5 cm3 par exemple. 

• Pour l'agitation du milieu acidobasique avant 
la saisie du pH : mise en route et arrêt de l'agi- 
tateur électromagnétique. 

! i i ■ - |—i i : 

C) Le traitement et la visualisation des résul- 
tats sont effèctués mesure par mesure. Sur le 
vidéo et 'imprimante, l'ordinateur édite les pN 
et les vo urnes écou és. Sur la table traçante, 
à chaque mesure du pH expérimental, le style 
se déplace aux coordonnées des saisies puis 
dépose in point entouré d'une case d'incerti- 
tpde Ensuite, la. courbe théorique d'évolution 
du pH est tracée L'analyse entre les résultats 
théo'i q uiis et expéri men tau x est d o nc ijn m è- 
diatej et visualisée s^ns éalcijiï, cjmfqrmémertt 
aux programmes en vigueur en classes de te r - 
minales C et D. ’ { I "h“î 


3) LA MANIPULATION 

Descriptif : se reporter au schéma de principe 
du système complet. (Fig. 1) et à l'ordino- 


gramme décrivant la suecepsiop-des taches 
effectuées par le système, |FigJ 2J I 


^ EXEMPLES DE RESULTATS 

a) Cas d'unel réaction açidobasique entre la 
soude et un acide faible (Fig. 3 et 4) | [ 
bl Ca s d'une réaction acidobasique en tre b 
soud ç e t un acide fort (Fig.î 5 et 6) i ; 


5t€0N^lJ$tON&] -f- 

1 j ^ [ j I I 

• L'évolution du pH expérimental colle » bien 
aux courbes théoriques pvec des écarts dus à 
un tar ag e délica t du pH rrètré et à u n b réponse 
de l'é ectrode au colomel plus ou moins médio- 
cije ; on rema[que également unejmojns bonne 
réponse de l'électrode en milieu trop basique 
(courbe 2). 

• Les différences d'évolution du pH sont net- 

tes à>pë^^cT<ilël^bl^€t'"lVcF^'f^^l T ô n P eut 
ajler plus toirj err{reclHerctrarit le^ points d’in- 
flexion pour déterminer le pH à l'équivalence 
et le pkA au point de 1/2 équivalence. Bref, le 
programme peut être complété par un travail 
personnel des élèves 

• La rapidité et la bonne qualité des mesures 
ainsi que la précision du tracé graphique mon- 
trent aux élèves combien est précieuse l'aide 
de l'outil informatique pour les scientifiques. 

D. Gaudelette 
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SUR LE 

SUJET 

REACTIONS 

RC I DO ORS I QUES 




AUTEUR: D.Gaudel et te. 

COURBES- 

DE REACTION 

S AC I DO BASIQUES 


DOSAGE d 

■'un acide f 

ai b le- ou f 

ort par ur 

ie base forte. 

EXF'ER I MEHTATEURS : DG 




DATE: 3/6/85 




UOLUME D 

•'HCl DOSE e 

ï Ci v i3= 40 



CONCENTRAT ION MOLAIRE en NaOH 

EXPRIMEE 

en «ol.l-l® .5 

UOTRE pH 

D 'ORIGINE 

MESURE 30 

FOIS UAUT 

: 2.89333 

SAISIES 

DES pH PENDANT L'ECOULEMENT DE 

LA BASE : 

POINT N" 

j 4 

pH= 3.40 

Uol bas= 

.5 flvMI * 

POINT N" 

2 H* 

pH= 3.7 

Uol bas= 

1 

POINT N" 

3 -> 

pH= 3.91 

Uol bas= 

1.5 

POINT N" 

4 Ht 

pH= 4.1 

Uol bas= 

2.03 

POINT N" 

5 -it 

pH= 4.2 

Uol bas= 

2.5375 

POINT N“ 

£, * -ÿ- 

pH® 4.3 

Uol bas® 

3.045 

POINT N" 

7 

pH= 4.5 

Uol bas® 

3.5525 

POINT N" 

8 Ht 

pH= 4 . 6 

Uol bas= 

4.06 

POINT N" 

9 Ht 

pH= 4.7 

Uol bas= 

4.5675 

POINT N° 

10 Ht 

pH= 4.8 

Uol bas= 

5.075 

POINT N" 

11 Ht 

pH= 5 

Uol bas® 

5.5825 

POINT N" 

12 Ht 

pH® 5. 1 

Uol bas= 

6.09 

POINT N" 

13 Ht 

pH® 5.29 

Uol bas= 

6.5975 

POINT N° 

14 * 

pH® 5.53 

Uol bas® 

7.105 

POINT N° 

15 * 

pH= 6 

Uol bas= 

7.6125 

POINT N" 

16 Ht 

pH® 11.2 

Uol bas= 

8.12 

POINT N° 

17 + 

pH® 11.7 

Uol bas= 

8.6275 

POINT N" 

18 Ht 

pH® 11.9 

Uo 1 bas= 

9. 135 

POINT N* 

19 Ht 

pH® 12.1 

Uol bas= 

9.6425 

POINT H° 


pH® 12.1 

Uol bas= 

10. 15 

POINT N" 

21 Ht 

pH= 12.2 

Uol bas® 

10.6575 

POINT N° 

22 Ht 

pH= 12.2 

Uol bas® 

11.165 

POINT N° 


pH® 12.3 

Uol bas® 

1 1 . 6725 

POINT N" 

24 Ht 

pH® 12.3 

Uo 1 bas® 

12. 18 


% 


I Wsfcni 


üd^ülàlMiiülNI 


COURBES flCIDO BASIQUES 

AUTEUR: O.QRUOELETTE 


EXPERIMENTATEUR (S): 06 
DATE î3/6/flS 


Imi 


pK DE L'flCIDE FBIBLE: 4.75 


■-rîs~^â~^~ aa 23 D 24 


POINT D'EQUIVALENCE A P H«8.7 


■■■I 

■ 

■ 


— sriTmï 0 


ECH. DES VOL. BAS. » .61CM3/GRAD. VOL.BfiS 



SUR I— EE SUJET s REflCT I QHS HCIDO BASIQUES. 


AUTEUR : D . Gaude 1 et t e . 

COURBES DE REACTIONS AGI DO BASIQUES 

DüoAGE d "un acide faible ou fort par une base forte. 


EXPERIMENTATEURS: DG 
DATE: 4/6-"S5 


UOLUME D 'HC 1 DOSE en en 3= 40 

CONCENTRATION MOLAIRE en NaÛH EXPRIMEE en nol. 1-1= .5 


UOTRE pH D'ORIGINE MESURE 30 FOIS UAUT : 1 


SAISIES DES pH PENDANT L ECOULEMENT DE LA BASE : 


POINT 

N" 1 * 

pH= 

1 

Uol 

bas= .5 

POINT 

H" 2 * 

pH= 

1 

Uol 

bo.É= 1 

POINT 

N" 3 — * 

pH= 

1.00 

Uol 

bas= 1.5 

POINT 

N° 4 * 

pH= 

1.04 

Uol 

bas= 2.01 

POINT 

N" 5 + 

pH= 

1.06 

Uol 

bas= 2.5125 

POINT 

N° 6 4 

pH= 

1.1 

Uol 

bas= 3.015 

POINT 

N" 7 + 

pH= 

1.1 

Uol 

bas= 3.5175 

POINT 

N" 8 * 

pH= 

1.10 

Uol 

bas= 4.02 

POINT 

N“ 9 + 

pH= 

1.18 

Uol 

bas= 4.5225 

POINT 

N» 10 * 

pH= 

1.2 

Uol 

bas= 5.025 

POINT 

N° 11 * 

pH= 

1.27 

Uol 

bas» 5.5275 

POINT 

N a 12 4 

pH= 

1.3 

Uol 

bas= 6.03 

POINT 

N° 13 + 

pH= 

1.49 

Uol 

bas= 6.5325 

POINT 

N" 14 4 

pH= 

1.6 

Uol 

bas» 7.035 

POINT 

N" 15 4 

pH= 

1 . 90 

Uol 

bas» 7.5375 

POINT 

N° 16 

pH= 

8.8 

Uol 

bas= 8.04 

POINT 

N" 1? 4 

pH= 

11.2 

Uol 

bas= 8.5425 

POINT 

N° 18 4 

pH= 

11.5 

Uol 

bas= 9.045 

POINT 

H" 19 * 

pH= 

11.7 

Uol 

bas» 9.5475 

POINT 

N D 20 ■* 

pH= 

11.8 

Uol 

bas= 10.05 

POINT 

N" 21 + 

pH= 

11.8 

Uol 

bas= 10.5525 

POINT 

N° 22 * 

pH= 

11.9 

Uol 

bas= 11.055 

POINT 

N“ 23 + 

pH= 

12 

Uol 

bas= 11.5575 

POINT 

N" 24 4 

pH= 

12.0 

Uol 

bas» 12.06 




Lejs|stè(neJ)iellë-ina^vA 
V e mbnt fectiligné alter n atif en mouvant cir- 
uialre et rédiprobuerVienjt, et son étuijle e$t fc^n- 


iMj 


L'étude cinématique consiste, connaissant le 
rayon r de la manivelle OM et la longueur L de 
la bielle MP, à exprimer, à une vitesse de rota- 
tion donnée û constante de la manivelle, la 
position xp de l'axe du piston P, sa vitesse VP 

Les expressions obtenues sont : 
xp = r cosT + L Æ- Lsin 2 T 
L 2 

sin 2T i 


Vp 


-r ü [sinT + _Lx_ 
2L 


VI -1 sin 2 T 
L 


Tp = -rQ 2 [cos T + f cos 2T 

L Vï - h 2 sin 2 T 
L 2 




-4am$nta|e pour le mécanicien, en fait pour tout 
i puisqu'il équipé à des millions et des 
es les moteurs à explosion 
et de nos motocyclettes. 


i nos 


^'exemplaires 
automobiles I 


ce 


et son accélération Tp, pour différentes posi- 
tions de la manivelle repérées par l'angle T = 
(Ox, OM). Les axes utilisés sont ceux indiqués 
sur la figure. 


sin 2 2 


4L 3 (1-lsin 2 T) 3L2 
L 2 


On voit que ces expressions n'ont rien de 
réjouissant, surtout s'il s'agit de les appliquer 
25 fois de suite en faisant varier T de 0° à 360° 
de 15° en 15°. C'est pourquoi on employait 
les formules approchées suivantes, beaucoup 
plus simples : 

xp=r cos T+L (1 - n I sin 2 T) 

2L 2 : 

Vp = -r Û (sin T + _L sin 2T) 

2L 

Rp = -n Q 2 (cos T+ n cos 2T) 

L 


Or n'importe quelle calculatrice programmable 
peut utiliser sans difficulté les formules exac- 
tes : à partir du moment où on se sert d'un ordi- 
nateur de poches, les approximations perdent 
tout intérêt. 

Voici deux versions d'un programme permet- 
tant de mener à bien l'étude cinématique d'un 
système bielle manivelle : la première B.M.1 
fonctionne sans imprimante tandis que B.M.2 
fonctionne avec imprimante (PC 1261). 

Il suffit d'entrer les paramètres r, L, 0, ainsi que 
le pas qui séparera deux positions successives 
étudiées. Si vous ne connaissez pas les dimen- 
sions du moteur de votre véhicule, vous pou- 
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20; 1NPU T • = m 

- n _ o n •? u 

3ô;INRU T ,! 0;>e?? 9-* -r/ïïi 
n ? “ î G î I m : „ T ‘ - n s 
9 n rj 9 q -- 9 5 7 8,1 ï J) 

4l7i ; P = P / * 0^0; L = L / 1 0 0 0 ï O = 
F\à.i PH?? 7=0 TQ 369 STEP 
* AA=.fA 

•¥ n * ( SIN 7 R 2 L / hA* 




y y ; y al 




1 00 s PR I NT V?" ffl/s • 

PR INT O?" rn/s2 y ï 
NEXT T 

1 102 CURSOR 33s PR INT "¥l 


9 5 REN Dan i e 1 MAGN I N 
pour T S c iTt 1982 (ver 
s Ion 1985 pour PC 12 
61) 

10: CLEAR s PR INT v S*ste 
me b i e I ! e-flian lue* I e v 
: PR INT = tPRINT 
20s I N P U T v Rayon r en mm 
? v ? Rs INPUT M Lon?u 
eur i en m m ? V 5L 
38 5 INPUT tf Ornes a en tr/m 
n ? "?C ! 2 INPUT "*as 
en de? res ? V ?D 
48 : R=R/ 1030 îl=L/ 18002 0= 
1*0/39 

582 FOR T=8 TO 360 8TEP 
B:A=1-(R/L* SIN T>*2 


60s K=R* COS T+L*AAs V=-R 
*0*< SIN T+R/2/L/AA* 
SIN <2*T) > 

8 8 ; G = - R * ( 0 ,A * 2 ) * ( COS T+R 
/ / £j & :4c C 0 S ( 2 * T ) + ( ( R 
/ L / AA) ’■■■’ 3 ) / 4 * ( S I N ( 2 
*T) )«■■* 2) 

98: PR INT y M 5 S T R* T? * 
de?res M : priht x? tf 
m M 

188 :PRINT V? y m/s"i 
P R I N T G ? “ m / s 2 " • 

NEXT T 

1 1@; CURSOR 33^ PRIHT "FI 


9 5 R£f1 Daniel MAGN IN 

pour T S Fm. 1982 (ver 
s; on 1985 pour PC 12 
61) 

82 CLEAR ; PRINT y S?ste 
me b i e M e-rnan i ve H e" 


2 INPUT "Ra?on r en m 

? *?R 2 INP0 T ’Lonsu 
eur ! en m ? M 5L 

:INPU T ’ Orne? a en tr/« 
n ? v ?0î INPUT "Pas 
en des res ? v * B 

2 R=R/ 1 088 : 1=1/ 1 888 2 0= 
ÏÏ*Q/38 

:FOR T=8 TO 368 STEP 
D 

ï K=R* COS T+L-<R A 2)/2 
/L*( SIN T)^22 V=-R*0 
* ( SIN T+R/2/L* SIN 
<2*T) ) 

; I 3 = — R : 4 c ( 0 *“* 2 ) * ( COS T+R 
/L* COS < 2 *T)) 

: PRIHT *•* STR* T? " 
deeres*2 PRINT Xî ¥ 

iTi " 

! PR INT vr iïf/s " « 

PRINT or m/s2"2 
NEXT T 

: CURSOR 332 PRINT V FI 
N M ; END 
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200 réduit la fractièn 


bon comportement du programme est de trou- 
ver les B3, B5.... nuis. 

Le sous programm 
A et donne G 
B I G 
avec C = PG CD de A et B. 

Les éléments du tableau sont représentés 
comme : raction^i rrétiacjtibl^ s dp nujïïénrteurs 
dans le tableau A et de dénominateurs dans le 
tableau B. 


1 0 C L S : L -- 2 1 : D I M F»C1 ,LD,BC1 ,LD 
20 A C 0 , 0 3 = 1 - B C 0 j 0 3 = 1 : R=0 - S- 1 
30 PR I NT " B C 0]- 1 / 1 " 

^0 FOR D=1 TO L 

50 ^ 9CS, 03-CÜSC.KXD3 :BCS, 03=D+1 

60 ■ PQR K-i TO D 

70 : A=D-K :B = BCR,K-1 3 :GOSUB 200 

80 ■ U 1 = GXA C R K — 1 .1 : U 1 -H 

90 • :B“BCS,K-n :GOSUB 200 

100 : U2=GXACS,K-1 1 :U2=H 

1 I 0 ■ A = U1 :B = U2 :GOSUB 200 

120 : A=HXU1 +GXU2 iB=GXHXC iGOSUB 200 

130 - ACS,K3=G:BCS,K3=H 

140 - NEXT K 

150 : PRINT' BC ;OTO--’ : ;G , jH 
160 - S= 1 —S :P---1-R 

i 70 NEXT D 
180 END 

i 90 RED XXXXXXXxXXXXXXXXXXXXXXXXXXXXXXXX 
200 IF 0-0 THEN G=0:H=1 -RETURN 
210 O 1 -O : B 1 -B 

220 C = B:B=A--B*INTCfVB3 :A=C. 

230 IF B <> 0 GOTO 220 
240 G- - - Al -'C -H-B1 xC. 

250 RETURN 


ALGORITHME 2 

a n" (n + IKa^J-aj^" 1 ) 
a °~ 1 
n + 1 

a o= B k 


! ! ! I I I 1 ! î i ! 

Le programme est obtenu à partir du premier 
programme par modification des ilignes-50,- 70, 
èo, §0, 1 00[ 1 20 (modifications très mihimês 
à chaque fois). i 


N. ^ 

J\ 

0 1 2 3 

0 

1 % Va Va 

1 

-v 2 -Va -y 4 

2 

Ve V6 

3 

0 


BC 0 3 = 1/ 1 

BC 1 3=-1/ 2 

BC 2 3 = 1/ 6 

BC 33 = 0/ 1 

BC 43=-1 / 30 

BC 53= 0/ 1 

BC 63= 1/ 42 

BC 23= 0/ 1 

BC 83=-1 / 30 

BC 93= 0/ 1 

BC 103= 5/ 66 

BC 113=0/ 1 

BC 1 2 3 =-691 / 2230 

BC 133= 0/ 1 

BC 143= 2/ 6 

BC 153= 0/ 1 

BC 1 6 3 =-36 1 2/ 510 

BC 123= 0/ 1 

BC 183= 43862/ 298 

BC 193= 0/ 1 

BC 20 3 =- 1 246 1 1/ 330 

BC 21 3= 0/ 1 


0 CES -l = 2 1 :Din OC1 ,L3,BC1 ,L3 
20 OC0, 0 3 = nBC0, 0 3 = 1 - R = 0 - S= 1 
30 PR I NT "B C 0 3 = 1 x 1 !: 

40 FOR D=i TO L 

50 : OCS, 01 = 1 - B C S , 0 3 =D + 1 

60 - FOR K= 1 TO D 

70 : 0=D-KH :B=BCS,K-1 1 :GOSUB 200 

80 i U1 =GXACS,K-1 3 :U1 =H 

90 ■ O-D-K+1 -B=BCRiK-i 3 ;&OSUB 200 

100 - U2-GX0CR, K-l 3 ;U2=H 

’10 • 0=01 -B J 2 -GOSEB 200 

1 20 ■ A-HXU1 -GXU2 '-B-GXHXC GOSUB 200 

130 : O C S , K 3 =G '• B C S , K 3 =H 

• 40 : NEXT K 

150 : PRINT'BC ,: ;D F' 3 = , G C'.'''' ,H 

160 • S= 1 -S - P = 1 ■ -P 
i P0 NEXT D 
180 END 

1 90 RED X X X X * x x x X X X X X xx.***:* x X X X X * X X X X X X X 

200 IF 0 = 0 THEN G = 0-H=1 • P F T L! R N 
210 01 =0 :B1 =B 

220 C = B;B = 0 -BX I NT C 0 1 -0 = C 

230 IF B <> 0 GOTO 2 20 
240 G = 01 / C '.H=B 1 / C 
250 RETURN 


★ En 1 fait, il s'agit d'une première EX-EQUO 
puisque Bernard Kokanoski nous signale être 
également l'auteur d'un article publié dans « LE 
PETIT ARCHIMEDE »; dans lequel il démontre 
mathématiquement la véracité de ces 
algorithmes. - 







Objet du programme Application possible 

Résolution d'un système d'équations linéaires Analyse de circuits électriques à courant 
à coefficients complexes alternatif 


Mémoire 

Le programme occupe 1 500 octets 

Mode de traitement des données 

Les coefficients complexes sont introduits sous 
forme polaire (module, argument) avec argu- 
ment en degrés décimaux (de - 1 80 à + 1 80°) 
Exemple de système à 2 inconnues : 

(2 32).x + (5 -11 0).y =(1 -23) 

(7 65).x + (4 28).y = (6 15) 
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— 1200 C 
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1220 Fl 
OROUMEi 
1230 M; 
1240 Fl 
E2T U 
1 250 GC 
1 330 be 
1340 FO 
1350 FOI 
1360 Vf | 
1370 ÏF 
1380 if 

1390 007 
1400 Z f L 
1410 Z CL 
1 '*20 BEE 
IïNEKT L 
1430 RES' 
1440 FOR 
1450 Rjsaf 
1460 Si=c 
1465 IF K 
1470 R2=9 
14 ?5 P2=A 
1 480 R2 =p 
1485 BEEP 
1490 STOP 
1500 FOR f: 
1510 P=n 
1520 IF H, ; 
1530 P«p- 3 
1540 PRi NT 
1550 FOR H 
20 

1560 Mi; M, « 
1570 M5~M i; ; 
1580 FOR j= 








Conçu pour la classe (niveaux 
CMÏ , CM2 et 6 e ), le programme 
TABLE permet aux éleves de 


Avant d'être utilisé par les élèves, le pro- 
gramme doit être initialisé (DEF " " (SPC) : 
1010 à 1040), sinon l'appel par l'élève du répér 
titeur par DEF A conduira au message « Appelle 
le professeur ». Un RUN provoque le même 
résultat puisqu'il annule la valeur 1 donnée à 
INIT, drapeau d'initialisation ( 1 020). Le module 
DEF " " doit être employé avec prudence car 
il contient le seul CLEAR du programme. En 
1020 il faut donner à N la valeur du nombre 
d'élèves de la classe. Les tableaux MO (N, 3) 
et VI (l\l, 3) enregistrent le total obtenu par cha- 
que élève pour chaque opération et la vitesse 
utilisée pour obtenir ce résultat. En 1030 le pro- 
fesseur donne à la variable BO la valeur maxi- 
mum des tables : par exemple 1 0 ou 1 2 ou 20 
s'ils sont doués en calcul mental. 

DEF A appelle le répétiteur proprement dit. 
L'élève est invité à donner son nom dans le 
sous-programme « nom' », ceci afin de trouver 
en lisant les DATA son n° d'ordre J qui ser- 
vira pour les tableaux de résultats et de vitesse. 
Les noms devront être rentrés préalablement 
par le professeur à partir de la ligne 610. 
L'élève procède ensuite au choix de l'opération 
en frappant le signe correspondant. Il fait de 
même pour la vitesse : 1 = LENT, 3 = RAPIDE. 
Cette vitesse permet de calculer la limite maxi 
de la boucle de saisie de la réponse (Q) dans 
la routine « INK ». 

Après l'affichage du titre correspondant à l'opé- 
ration choisie (voir ligne 80), l'ordinateur pro- 
pose 20 calculs : boucle en K de la ligne 100 
à la ligne 250. Le choix aléatoire des deux ter- 
mes (RND) est effectué en ligne 1 10 et dans 
les sous-programmes propres à chaque opéra- 
tion. Pour la soustraction et la division, il y a 


répéter les tables de calcul, et 
au professeur de surveiller leur 
progrès. 


inversion des valeurs pour mettre en A le résul- 
tat de l'addition ou de la multiplication 
correspondante. 

Exemple : 

10+5=15 

ABC 

15-5=10 

La saisie du résultat s'opère par INKEY$. Son 
fonctionnement n'est pas régulier : il faut bien 
presser la touche pour que ça marche. On peut 
préférer remplacer les lignes 1 30 à 1 80 par un 
INPUT X, mais alors la notion de rapidité de 
réponse est bannie car avant de frapper, l'élève 
peut prendre tout son temps pour réfléchir. 
Un message annonce la réussite ou l'échec tan- 
dis qu'un total de points s'affiche selon le 
principe : 

+ 1 pour une bonne réponse 
- 1 pour une mauvaise réponse 
Le nombre de points est affecté à T et celui de 
bonnes réponses à M. 

Les 20 calculs effetués, il y a affichage de la 
moyenne M et du message « AU REVOIR ! ». 
En ligne 280, si le résultat obtenu dépasse un 
résultat précédent pour la même opération (0 
est le drapeau de l'opération), l'ordinateur pro- 
cède aux changements nécessaires. 

La visualisation des résultats par le professeur 
est obtenu par le module « Z ». Il donne le n° 
d'ordre, le nom de l'élève et pour chaque opé- 
ration le résultat et la vitesse utilisée. Il peut 
ainsi se rendre compte des progrès ou au con- 
traire conseiller à tel ou tel de prendre une 
vitesse inférieure. On passe d'un élève à l'au- 
tre par ENTER. : 
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2 : 
3: 
4: 
5: 
6 : 
7 : 
8 *. 
9: 
10: 


+ Re Pe t. i teur + + 

+ de tables ++ 

+ + - X / + + 

+ + + 

+ Ce) D.BRIANT ++ 

+ 09 : 85 ++ 


20: IF I N I T = 0 PRINT "Appelle le Profess 
eur I GOTO 20 

30 : GOSUB "nom": RANDOM :T=0,ri=0: USING 

40:CLS : PRINT "Choisir- le si9ne 
PRINT " + - * PRINT " " : 

PRINT "Uitesse 1/2/3 ?": BEEP 1 

50: IF INKEY$ =" " THEN 50 

60:2$= 1 NKEY$ : CURSOR 20>0: NAIT 40: 
PRINT 2$ 

20: U= UAL INKEY$ : IF U=0 OR U>3 THEN 

20 

25: Q=30+120/U: CURSOR 20>3: PRINT 
INKE-Y$ : NAIT 0 

80 : GOSUB "T"+Z$ 

90 : CLS : PRINT "TABLE D";OP$: LINE C 0 > 
0)-(149,2),X,BF: CURSOR 62: PRINT " 
Total 

95: " 

100: FOR K=1 TO 20 

110 : A= RND BO: GOSUB 2$ 

120 : CURSOR 48: PRINT A5" ";Z$;" "îBÎ" = 
": CURSOR 23: PRINT " 


3: GOSUB "INK":X= UAL INKEY$ 

3 : CURSOR 62: PRINT INKEY$ K IF C<10 
THEN 200 

3: GOSUB INK" s Y== UAL INKEY$ :X=XX10+Y 
3: PRINT I NKEY$ IF C<100 THEN 200 
3: GOSUB "INK 11 :Y= UAL INKEY$ :X=XX10+Y _ 
3 : PR INT INKEY$ 

3: " 

3: CURSOR 73 

3: IF X=C BEEP l: PRINT “BRAUO ! GENIA — 
L ! u : T = T + 1» n=M + i: GOTO 240 
3 : PR I NT 11 MANQUE DE POT !! li :T = T-l 
3: " 

3: CURSOR 92: NAIT 50: PRINT T: NAIT 0 
3 : NEXT K _ 

3: " 

3: BEEP l: CURSOR 72: PRINT "Moyenne : - 

"5 str$ m; u / 20 " 

3: IF M >MO ( J > O 3 LET MQ( J> 03=M> UI ( J > 03= — 
U 

3: NAIT 300: CURSOR 50: PRINT "AU R“~ 
E U O I R ! " _ 

3: US ING : CLS : END 
9:" 

3: "T+"o = 0,OP$ = CHR$ 96+"ADDITI0N + + + + 

+ + + ": RETURN - 

3: "T-"0=1>0P$="E SOUSTRACTION 

RETURN ~ 

3: "TX"0=2> OP$'="E MULTIPLICATION X": _ 

RETURN 


: "T/"0=3> OP$ _ -"E DIUISIQN 
RETURN 


: B= RND BO « C=A + B: RETURN 

: GOSUB '' + " : A~C > C=A-B : RETURN 
: "X 

: B- RND BO » C = AXB : RETURN 
: "/ 

: GOSUB "X" : A -C> C=AxB: RETURN 
: "INK 

:FOR 1=0 TO Q: IF INKEY$ >"/" AND 
I NKEY$ LET I=Q 

: NEXT l: RETURN 


:CLS : NAIT 0: PRINT "X RePet iteun d 
e table X": LINE <0, 03 -C149, 73 , X, BF 
: CURSOR 0>2: PRINT "Quel est ton nom 
? ": 1NPUT NOM$ 

:J = i: RESTORE 
: READ DA$ 

: IF DA$=NOM$ RETURN 

: J-.J + 1 : IF J < N+l THEN 540 

:PRINT u I ! y a une enneunl": GOTO 52 


610: DATA "BIBI" » "DUPONT" , "DURAND" < "MART 
IN" 

620: DATA „ etc" 

630:" 

1000 I n 1 1 I a I I s at i on 

1010:" " CLS : CLËAR : NAIT 0: PRINT " 
<<< In i t I a I ! sat i on >>> 

1020: I N I T = 1 : N=4 : DIM MO<N> 33 > UKN> 33 
1030: INPUT "Bonne max I des tables " î BO 
1040: CLS : END 
1050: 

1100: Re su 1 1 ats 

1110: "2" CLS : NAIT 0: PRINT " ===== R 

ESULTATS = = =": RESTORE : USING " 

1120: FOR J=1 TO N 
1130: BEEP l: READ NOM$ 

1140: CURSOR 5» l: NAIT 0: PRINT JT' : " 

J NÛM$ 

1150: PRINT " + "5 MO LJ >03 5 UK J >03 S " : 

" > MQLJ > 1 3 > UK J > 13 

1160: NAIT : PRINT "X " > MO ( J , 2 3 5 U I C J > 2 3 
S " : x " 5 MQ( J > 33 > UK J> 33 : NAIT 0 

1170: NEXT J 

1180: USING : CLS : END 
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L'homme de la fin de ce XX e . siècle restera 
marqué par une nouvelle forme de langage : 
l'Image. Cette technique encore très récente 
bouleverse actuellement les vieilles techniques 
de communication que sont le langage parlé 
et écrit. Le fait m'est apparu évident quand, 
lors d'un court séjour en Suisse, je n'arrivais 
pas à trouver la consigne dans la gare de 
Geneve. Au lieu de suivre le traditionnel pan- 
neau CONSIGNE, il m'a fallu pister un picto- 
gramme représentant une valise dans un carré. 
Cet Espéranto qu'est devenu le langage par 
l'image est le résultat logique de l'évolution 
technologique de nos différents moyens de 
communication, passant par la photographie, 
le cinéma, la télévision, le magnétoscope, les 
microfiches, le disque optique numérique, la 
synthèse d'images, la reconnaissance des for- 
mes et des paroles, l'intelligence artificielle, 
etc... 

Très progressivement, les ordinateurs commen- 
cent à acquérir la parole, cependant la repré- 
sentation visuelle reste la méthode la plus 
rapide et concise d'intégration d'informations 
multiples. Ne dit-on pas qu'un bon shéma vaut 
mieux que de longs discours. Il est donc évi- 
dent que devait s'imposer une convivialité 
visuelle entre l'écran de l'ordinateur et l'utili- 
sateur. C'est ce concept, inspiré du terminal 
XEROX, qui a conduit à l'élaboration de GEM, 
implanté sur MZ 5600. Pourquoi avoir attendu 
si longtemps ? Pour 2 raisons essentielles : 

• La chute libre du prix des composants suit 
une Gourbe inversement proportionnel à celle 
de l'accroissement de la puissance des micro- 
processeurs. Le rapport coût/puissance- 
capacité devient ainsi très favorable à l'appa- 
rition de logiciels gourmands en mémoire. 

• La résolution des écrans suit la même pro- 
gression. L'ordinateur devient ainsi une véri- 
table station de travail. 

Si le matériel a fortement évolué et permis la 
réalisation des rêves les plus fous pour les pro- 
grammeurs, les systèmes d'exploitation sont 
toujours restés des langages obscurs, rebutants 
et inaccesibles à l'utilisateur. 



GEM, développé par DIGITAL RESEARCH est 
donc conçu comme un complément graphique 
au système d'exploitation. Il s'agit comme un 
filtre graphique au niveau des applications. 
Ainsi, l'application développée sous GEM est 
totalement indépendante de la machine qui la 
supporte tant au niveau de la résolution de 
l'écran que de la gestion interne de la mémoire. 
Fourni avec GEM, DESKTOP est l'utilitaire 
d'interfaçage entre l'utilisateur et le système 
d'exploitation, utilisant les fenêtres et les icô- 
nes, vous retrouverez. . . Votre bureau en cou- 
leurs. La main sur votre « SOURIS », vous 
oublierez bien vite les commandes complexes 
et rebutantes du DOS. Il vous suffira de « poin- 
ter » et de « clicker » pour que la maniement 
de votre ordinateur devienne rapide, et facile 
et efficace. La « DIRECTORY » ressemble 
maintenant à un dossier dans lequel sont ran- 
gés d'autres dossiers ou fichiers. Les disquet- 
tes ou disques durs ressemblent à des disques ; 
vous trouvez même une corbeille où jeter vos 
fichiers devenus inutiles. 

L'immense différence avec les systèmes de la 
précédente génération pourrait se résumer 
ainsi : C'est maintenant l'ordinateur qui 
s'adapte à vos méthodes et à votre organisa- 
tion de travail, et non vous qui êtes tributaire 
de sa logique. Vous agissez avec GEM exac- 
tement comme vous organisez votre bureau. 


Manipuler un fichier consiste tout simplement 
à déplacer l'icone représentant ce fichier d'une 
fenêtre vers une autre pour le recopier, ou vers 
la corbeille pour l'effacer. Toutes les comman- 
des résidentes se situent dans des menus dérou- 
lants qui ne perturbent en rien l'organisation 
de l'écran. 

LES APPLICATIONS 

Il en existe bien sûr 2 types : Celles qui sont 
développées sous GEM et les autres. Passons 
rapidement sur la seconde catégorie d'appli- 
cations qui s'exécutent normalement dans tou- 
tes leurs fonctionnalités et devant lesquelles ' 
GEM sait s'effacer. Les applications dévelop- 
pées sous GEM sont fortement imprégnées de 
la même philosophie et sont conçues pour se 
compléter et non se concurrencer. Sous GEM, 
les programmes deviennent des outils simples, 
complémentaires, interactifs et d'une utilisa- 
tion remarquablement aisée. Inutile d'être pro- 
grammeur pour les utiliser, ni même de pas- 
ser de longues heures à étudier la notice, les 
• ommandes essentielles sont disponibles et uti- 
lisables immédiatement et très naturellement. 
DIGITAL RESEARCH propose un ensemble 
d'applications interactives appelé GEM COL- 
LECTION qui comprend : 

•GEM WRITE *GEM PAINT «GEM DRAW 
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MZ 5600 
GEM WRITE 


L'application GEM WRITE réunit le meilleur 
de deux mondes : un traitement de texte éla- 
boré et la simplicité presse-bouton du logiciel 
d'interface graphique GEM. Formant un logi- 
ciel puissant et facile à utiliser. 

En fait, GEM WRITE est beaucoup plus qu'un 
traitement de texte ordinaire. Il marche avec 
les logiciels graphiques — GEM DRAW, GEM 
PAINT, GEM GRAPH et GEM WORDCHART 
— pour vous permettre de combiner des sché- 
mas, des graphiques, des dessins et des synbo- 
les, des images et des illustrations directement 
dans le texte de votre document. 

Conçu à partir du fameux Volkswriter Deluxe 
de Lifetree Software Inc. GEM WRITE vous 
offre la puissance de l'un des meilleurs traite- 
ments de texte du monde. Des déplacements 
exceptionnellement rapides à l'intérieur de vos 
documents. La possibilité de gérer même des 
documents de très grande taille. Et aussi un 
logiciel de formation progressive directement 
à l'écran qui vous rendra opérationnel en moins 
d'une heure. 

GEM WRITE, comme tous les logiciels sous 
GEM, utilise des menus déroulants, des icô- 
nes, des fenêtres, des barres de défilement 
pour donner à votre MZ toute la symphatique 
simplicité DE GEM — en conservant tout le 
bénéfice de la puissance du MZ . 

Découvrez une nouvelle maitrise du langage 
Avec les commandes au clavier, en pressant 
une seule touche, ou à portée de main avec la . 
souris, vous pouvez déplacer, copier, effacer 
une lettre, un mot, une phrase, un paragraphe, 
ou même une page entière, très rapidement. 
Ou bien centrer du texte, changer la présen- 
tation des caractères, etc., en pressant un 
bouton. 

Voyez ce que vous obtenez 
Tous les traitements de texte vous permettent 
de souligner, mettre en italique ou en gras 
votre texte, et GEM WRITE le fait aussi. Mais 
avec GEM WRITE pas besoin d'apprendre des 
séquences compliquées de commandes. Vos 


effets spéciaux appraissent à l'écran exacte- 
ment comme vous le désirez — souligné, gras, 
changement de page... 

Vous avez le résultat définitif sous la main. 


Desk File Dieu Options 



□ [ 
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MZ 5600 
GEM PAINT 


GEM PAINT transforme votre MZ 5600 en un 
véritable atelier d'artiste : il devient votre bloc 
à esquisses votre toile de peintre. Tout ce dont 
vous avez besoin est une souris ou une tablette 
à digitaliser. Vous pouvez utiliser votre ordi- 
nateur pour dessiner. Esquisser. Peindre au 
pistolet. Gommer. Faire ressortir. Ou ombrer. 
Selon votre équipement, vous pouvez avoir 
jusqu a 16 couleurs claires et vives à l'écran. 
Utiliser votre MZ devient aussi simple que d'ap- 
puyer sur un bouton 


GEM PAINT n'est pas un programme de des- 
sin ordinaire. Comme tous les logiciels GEM 
il comprend des icônes, des menus déroulants, 
des fenêtres, des barres de défilement, vous 
donnant toutes les facilités d'un Macintosh — 
et toute la puissance d'un PC. 

GEM PAINT arrive, complet, avec tous les 
outils dont vous avec besoin. Vous pouvez 
sélectionner la brosse. Le crayon. Le pinceau. 
Le pistolet à peinture. Ou un robinet de pein- 
ture qui remplira, simplement en appuyant sur 
une touche, n'importe quelle forme avec le 
motif de votre choix. Et, si vous faites une 
erreur, sélectionnez l'effaceur pour faire dis- 
paraitre la bavure d'un mouvement de souris. 
Dessiner les formes à partir du menu est Cut 
aussi facile. Sélectionnez la forme, pointez, 
et. . . voilà ! elle apparait juste où vous le dési- 
riez. Même si vous avez du mal à dessiner cer- 
cle, rectangle, polygone, complexe, tout 
comme un professionnel. Le microscope vous 
permet de faire un zoom avant sur l'image et 
de travailler avec précision, point par point. 


Des possibilités sans fond 

Vous avez le choix parmi 21 fonds pré-définis, 
'des briques au treillis de panier. Ou, si vous 


voulez, vous pouvez dessiner les vôtres — le 
nombre de fonds que vous pouvez créer est 
pratiquement illimité. 

Si vous avez un mot à dire 

Si vous avez réellement besoin de mots pour 
expliquer vos illustrations, GEM PAINT vous 
permet également de mettre des en-têtes, titres 
ou légendes, n'importe où dans l'écran, en 4 
styles et 6 tailles. 

Vous avez le résultat définitif sous la main 

GEM PAINT comme GEM WRITE sait gérer les 
imprimantes les plus répandues, vous pouvez 
imprimer votre document de la façon qui vous 
convient. Il marche aussi avec les impriman- 
tes à laser les plus récentes, comme la Laser 
Writer d'Apple et la LaserJet de Hewlett- 
Packard. Selon votre choix d'imprimante, vous, 
pouvez imprimer en noir et blanc ou en cou- 
leur. Vous pouvez même créer des présenta- 
tions automatiques, directement sur l'écran de 
votre PC. 




GEM DRAW 


Le logiciel de création de shémas en 8 couleurs 
autorisant une grande variété d'impressions. 
Idéal pour les diagrammes, les représentations 
graphiques, les configurateurs, les camem- 
berts, etc. Le « repiquage » ou la fusion d'un 
élément de dessin vers un autre, les modifica- 
tions ou créations en tous genres s'effectuent 
toujours très naturellement sans nécessiter la 
connaissance de .commandes complexes. 
GEM : « Super Environnement des années 
90 ? Nous en sommes persuadés. A peine dis- 
ponible sur le marché, GEM va bénéficier 
d'une trentaine de logiciels disponibles rapi- 
dement et une bonne centaine en préparation. 
Bel avenir en perspective ! 

Pour notre part, nous utilisons maintenant quo- 
diennement GEM, ne serait-ce que pour ce 
bulletin qui sera bientôt conçu à 100° o à l'aide 
de GEM COLLECTION. 





E. Bernarc 
S. Bizoirre 






LABELS 

ETEIIQUETTES 


Nous allons étudier les étiquet- 
tes dans le BASIC SHARP, puis- 
que c'est en fait une de ses plus 
grandes puissances. 

La notion de LABELS est un des 
atouts importants du BASIC des 
PC. Favorisant une plus grande 
lisibilité, il permettent de s'y 
« retrouver » dans un pro- 
gramme... à condition de savoir 
s'en servir. 

A QUOI SERT UNE ETIQUETTE : 

On se sert d'une étiquette pour donner un nom 
à une ligne de programme, lorsque l'on vou- 
dra appeler cette ligne, on pourra le faire soit 
par le nom, soit par son numéro. Les ordres 
BASIC acceptant ces deux types de paramè- 
tres sont : 

GOTO GOSUB THEN RESTORE RUN LIST 
LLIST 

Vous pouvez mettre autant de labels que vous 
désirez dans une programme, à condition bien 
sûr que votre mémoire accepte ce surplus 
d'octet. 

SYNTAXE D'UNE ETIQUETTE: 

Une étiquette est un message encadré par deux 
guillemets. Tous les symboles sont significa- 
tifs, il ne faut donc pas qu'il y ait une seule dif- 
férence entre le nom de l'étiquette et le para- 
mètre de la fonction qui l'appelle, sans quoi il 
se produirait un message d'erreur correspon- 
dant à la demande d'une ligne de programme 
inexistante. 

OÙ METTRE UNE ETIQUETTE : 

Les étiquettes se placent en début de ligne, 
juste après le numéro. 

Il ne faut en aucun cas qu'il y ait une instruc- 
tion avant. Sur les premiers modèles de 
PC-1 500, il ne faut pas non plus que, sur une 
ligne, ne se trouve qu'une étiquette, mais cette 


particularité ne se retrouve sur aucun POCKET 
plus récent. 

Après le dernier guillemet de l'étiquette, on a 
deux solutions pour introduire l'instruction. 
Nous vous conseillons toutefois la deuxième 
solution, elle économise un octet, et avec le 
kilo-octet à 100 F., cela fait 10 centimes ! 

CONTENU D'UNE ETIQUETTE : 

A l'intérieur d'une étiquette, on peut mettre 
tous les caractères que l'on veut. Ceux qui sont 
disponibles au clavier sont assez simples à 
entrer, par contre certains sont plus délicats. 
Ce sont des codes spéciaux comme le curseur 
ou le pavé noir. Pour les entrer dans un pro- 
gramme, le plus simple consiste à les affecter 
à une touche réserve par un POKE, bien ajusté. 
A partir de là, vous pourrez en rappelant le con- 
tenu de cette touche disposer de ce caractère. 
On peut aussi mettre des codes ASCII inférieurs 
à 32 dans un label. 

Seuls les PC traitant par INKEY $ les touches 
de contrôle peuvent avoir accès à cette possi- 
bilité. Il faut alors POKER directement dans la 
mémoire programme. On choisira généralement 
un nom ayant un rapport avec la suite du pro- 
gramme, mais on veillera à ce qu'il ne soit pas 
trop long, car, même si les PC acceptant des 
labels de 76 signes significatifs, celà se traduit 
par une perte de temps à chaque appel qui est 
variable d'un PC à l'autre : 

0,0002 seconde par lettre en plus sur 
PC-1 500 

0,0009 seconde par lettre en plus sur 
PC-1 350 

LES AVANTAGES LIES A L'UTILISATION 
DES ETIQUETTES: 

Les avantages sont de trois ordres : 

• plus grande lisibilité des programmes puis- 
que l'on voit directement où se branchent les 
instructions. 

Un GOTO « RECORD » est plus explicite qu'un 
GOTO 6 503 

• celà évite dans la plupart des cas le fait de 
mettre des REM d'où gain de place mémoire. 

• Vous pourrez utiliser de plus un RENUM très 
simple qui ne tient pas compte des branche- 
ments. 

LES BRANCHEMENTS CALCULES : 

Le fait de pouvoir faire des branchements du 
type A * 100 est une des particularités du du 
BASIC des PC. mais on peut aussi faire un bran- 
chement sur une étiquette par : GOTO A$ où 



A$ contient le label question. On peut bien 
entendu utiliser toutes les fonctions de traite- 
ment de chaînes de caractères. On pourra faire 
par exemple : 

GOTO « PRG » + STR$ A 
Cette instruction fera le branchement au label 
PRGO si A vaut 0 
PRG1 si A vaut 1 etc. 

On notera qu'une étiquette peut être vide, c'est 
à dire deux guillemets accolés. On couplera 
cette astuce avec celle consistant à pouvoir ne 
pas fermer les guillemets en fin de ligne. 

LES LABELS SPECIAUX DE LANCEMENT 
PAR DEF : 

Il existe 18 labels spéciaux qui sont affectés 
au lancement des programmes d'une manière 
très rapide. Ces étiquettes sont caractérisées 
par le fait qu'il n'y a qu'un symbole entre guil- 
lemets. Celà peut être une lettre faisant partie 
des deux rangées inférieures du clavier, l'es- 
pace ou le signe = sauf sur le PC-1 401 qui rem- 
place ce dernier par la virgule. 

Après avoir mis un de ces labels, pour lancer 
le programme à partir de la ligne où il se trouve, 
appuyez successivement sur DEF et le signe 
en question. 

GOTO INKEY$ MODIFIE : 

Le principe du INKEY $ a déjà été expliqué pour 
PC-1 500 dans le SHARPENTIER N° 8 page 
14, reportez vous y pour comprendre, le prin- 
cipe, même si vous avez un autre PC, ou même 
un MZ, allez soyons large ! 

Votre courrier nous a prouvé que vous aviez 
apprécié l'article de pascal ABRIVARD mais il 
s'avère qu'il y a une certaine incompatiblité 
entre le lancement par DEF et cette méthode. 
Souvent en effet on emploie un label, par exem- 
ple A, pour lancer le programme, ce qui a pour 
effet de réinitialiser toutes les variables. Si dans 
le même programme vous utilisez GOTO 
INKEYS, par un appui malencontreux sur la tou- 
che A, vous provoquerez un GOTO « A » qui 
réinitialisera toutes les variables. Gênant n'est 
ce pas ? 

Pour contrer cet effet fâcheux, il suffit de faire 
un GOTO + INKEY$, et de rajouter un 
devant chaque signe dans les labels. Le 
label # seul servira donc pour traiter le fait 
qu'aucune touche n'est appuyée. 

Marc GIRONDOT 
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FONCTION 


« Je n'ai pas cette Fonction sur 
mon PC ! Comment faire ? » 
Voilà la question que vous vous 
êtes peut-être déjà posée en 
vous apercevant que votre ordi- 
nateur préféré ne comporte pas 
la fonction mathématique dont 
vous avez subitement besoin, 
pour adapter sur votre poquette 
un programme comportant la 
fonction notée : 


frîp ou RPC et RPL ou encore POL et REC sur 
PC 14xx 

Cette notation signifie : « Conversion des 
coordonnées rectangulaires en coordonnées 
polaires, ou l'inverse ». Cela permet de trans- 
former les coordonnées X et Y du système rec- 
tangulaire dans celui des coordonnées circu- 
laires, dites aussi polaires. C'est à dire 
R = module et 0 (thêta), nommé argument, cor- 
respondant à l'angle du centre, (voir fig. 1) 
Si nous prenons notre vieux manuel de trigo- 
nométrie, nous voyons que (X,Y) coordonnées 
rectangulaires du point M ont pour hypothé- 
nuse le vecteur R. En prenant R positif, on peut 
écrire : 

R = SQR (X 2 + Y 2 ) 
et l'angle au centre 0=T : 

T=ATN (Y/R) pour obtenir les coordonnées 
polaires. 

La valeur renvoyée dépend du mode de mesure 
des angles choisis : (DEG, RAD, ou GRAD) ATN 
1 donne 45 si les angles sont calculés en 
degrés. 

La formule suivante, va nous permettre de 
combler la lacune de notre appareil : 

R=X 2+X 2 : R = SQR R 
T = Y/X : T=ATN T 

ou en conservant les mêmes variables (X,Y), 
ce qui est quelquefois bien utile, 

X = R 

X=X 2+Y 2:X=SQRX 
T=Y/R: Y=ATNT 


Exemple 1 (fig. 1 ) 

Pour X=4et Y=3, nous obtenons R = 5, ce qui 
est bien égal, selon l'application du Théorème 
de Pythagore, à l'hypoténuse d'un triangle rec- 
tangle de côtés valant 3 et 4. Donc le module 
ou rayon R peut être utilisé pour calculer direc- 
tement la longueur de l'hypothénuse d'un rec- 
tangle ou d'un carré. 



En ce qui concerne la valeur de 0 = T, il est 
absolument nécessaire de bien se fixer la repré- 
sentation de X et de Y dans l'espace, car selon 
qu'ils seront comptés à leur place réelle ou à 
l'inverse, l'angle 'T' sera bien celui qui est 
recherché ou son complément. Il est donc pré- 
férable de tracer un diagramme. 

Avec le mode DEG, si nous prenons X =40 et 
Y = 30, nous obtenons R = 50 et T = 36.87 DEG 
décimaux. 

Mais avec X= 30 et Y =40, si nous obtenons 
bien R = 50, T prend la valeur de 53.13 DEG. 
Bien sûr cette fonction peut être exécutée en 
degrés, grades ou radian, 

Inversement, pour passer des coordonnées 
polaires en coordonnées rectangulaires, c'est 
à dire connaissant R et T, il faut trouver les 
valeurs de X et de Y. 

C'est ainsi que X = R COS T 
et Y = R SIN T 

Exemple 2 (fig. 2) 

Pour convertir les données polaires R = 7 et 
T = 1 30 en coordonnées rectangulaires, nous 
obtenons en degrés : 

X =-4.499 et Y = 5.362 




Exemple 3 (fig. 3) 

Calcul de résistances dans un circuit : 

Cette formule peut servir à calculer la résis- 
tance et la réactance d'un circuit électrique. 

Dans le circuit (fig. 3), l'impédance totale est 
égale à 100 ohms, l'angle de déphasage est 
de 35 degrés. Il s'agit de calculer la résistance 
R et la réactance Xc du circuit. Pour ne pas 
obtenir une réponse fausse, il est nécessaire 
de tracer un diagramme dans lequel le module 
R représente l'impédance totale, 1 00 ohms, et 
l'argument T l'angle de déphasage. En conver- 
tissant ces valeurs en coordonnées rectangu- 
laires, la valeur de X représente la résistance 
en ohms et la valeur de Y celle de la réactance 
Xc en ohms également. 



Fig. 3 

Mettre la machine en mode DEG. Introduire : 
R = 1 00, T = - 35 nous obtenons : 

X = 81 .91 ohms et Y = - 57.35 ohms. 

Ces deux formules peuvent également être 
enregistrées sur le Tableur des PC 1 260/61 et 
2500, ou introduites en mode RSV. Toutefois, 
dans ce cas, il faudra changer Y, T et R, par 
des variables acceptables dans ce mode. 

Jean Dubus 


INITIATION 

AUIMESR-H 

2'PARTII 

Dans le cadre de noire rubrique 
« toujours plus », nous allons 
aujourd'hui pénétrer dans l'uni- 
vers fantastique du micropro- 
cesseur qui constitue le cerveau 
de nos PC, et du système qui le 
fait vivre et le relie au monde 
extérieur. Mais rassurez-vous 
cette opération est sans danger 
pour votre Sharp, nous n'allons 
pas l'ouvrir, seulement décou- 
vrir sa face cachée. 

En effet, un ordinateur s'apparente un peu à 
un être vivant. Et tout comme un cerveau, un 
microprocesseur n’est rien sans un environne- 
ment précis, différent sur le fond pour chaque 
machine. Aussi, est-il illusoire de vouloir pro- 
grammer en LM sans un minimum de connais- 
sance sur cet environnement. Examinons le 
d'une manière simplifiée. Le tableau synopti- 
que d'un PC se divise en quatre grandes par- 
ties : Le CPU (Central Processeur Unit) ou 
microprocesseur, qui est le cerveau central, la 
Ram (Random Access Memory) ou mémoire 
vive, qui permet le stockage des informations. 
Puis la ROM (Read Only Memory) ou mémoire 
morte, qui contient - écrit en LM - le Lan- 
gage (Basic) et les routines principales, et enfin 
l'interface I/O (In/Out) ou interface Entrée/Sor- 
tie, qui permet le dialogue avec les périphéri- 
ques. Voir Fig. 1. De plus, ces quatre grands 
blocs sont interconnectés entre eux par trois 
Bus : un Bus d'adresse sur 16 bits, un Bus bidi- 
rectionnel pour les données sur 8 bits et un 
Bus de contrôle. Comme tout corps a besoin 
d'énergie, il faut fournir une alimentation élec- 
trique de 5 Volts en courant continu (tension 
exigée par les composants électroniques en 
Cmos) à tout ce petit monde, et un cœur pour 
rythmer cette vie interne : l'Horloge dont la fré- 
quence est donnée par un Quartz externe (768 
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Fig 1. Synoptique du système 


Khz en général et 576 Khz pour la série 1 250). 
La fonction du CPU est de contrôler toutes les 
informations circulant entre chaque partie du 
système, lui y compris. Pour celà, il place sur 
le bus de connées un octet qui correspond à 
une information ou à un code machine en pro- 
venance d'une mémoire ou de l'un des trois 
autres blocs. Il se l'envoie alors à lui-même ou 
il le stocke dans un de ses registres ou dans 
une autre mémoire, ou bien encore il l'expédie 
(l'octet) à l'un des trois blocs par le biais du 
bus de données. De plus, l'adresse de l'infor- 
mation lue, écrite ou envoyée par le CPU figure 
dans le bus d'adresse sur 1 6 bits. Cette adresse 
étant d'ailleurs générée par ce même CPU. 
Quant au bus de contrôle, il transporte des 
signaux de contrôle (étonnant non ?) à l'usage 
du CPU et créés pour vérifier la bonne marche 
de ces opérations complexes ainsi que le 
« timing » correspondant. Encore un petit 
effort et c'est promis la prochaine fois on pren- 
dra le métro. Nous pouvons à la lumière (cer- 
tes encore faiblarde) de ces informations, cons- 
tater que notre brave ESR-H accomplit un nom- 
bre très important de taches variées. 

Voyons maintenant Rom et Ram, en commen- 
çant par la Rom. La Rom est une mémoire ne 
pouvant qu'être lue par le CPU. Elle est inalté- 
rable et se conserve même une fois les piles 
de votre PC otées. On y stocke pour cette rai- 
son le programme de base de la machine : le 
Basic, ainsi que les sous-programmes LM 
gérant l'affichage, le clavier, la cassette, etc. 
Dans le cas de nos PC (cf les memory map 
publiées N° 1 2 et N 0 14), elle est scindée en 
deux : 8 Ko de Rom CPU et 32 Ko ( 1 6 pour la 
série 1250) pour la Rom Basic. La Rom CPU 
est une ROM interne au CPU ESR-H contenant 
l'interpréteur de commandes (MCP : Bonjour 
Luc !) et les routines LM primordiales. La Rom 
Basic contient essentiellement le Basic. La Ram 
au contraire peut être aussi bien lue que modi- 
fiée ; on peut donc y écrire des informations. 
Elle est utilisée d'abord par le système, pour 
garder des résultats intermédiaires, des varia- 
bles Basic ou pour stocker des informations 
importantes (dans les Flags et les pointeurs). 
De plus on y écrit les programmes Basic et aussi 



les programmes LM que nous allons bientôt 
inventer. 

Pour clore cette revue en règle, nous allons con- 
templer avec admiration l'interface I/O. En effet 
sans cette interface, point de commnication 
avec notre micro. Elle gère à la fois l'écran, le 
clavier, les chargements et sauvegardes cas- 
sette, la sortie sur imprimante etc. Tous ces 
périphériques sont donc contrôlables directe- 
ment par programmation Basic ou LM. Seul 
l'écran LCD fait figure d'exception à la règle, 
du fait de sa complexité. Il a un contrôleur spé- 
cifique avec de la mémoire vive bien à lui. Et 
ne peut être de ce fait, que programmé en LM. 
Examinons à présent le SC 61860 qui est au 
centre de nos PC. Nous avons vu qu'il accom- 
plissait et régentait la plupart des taches impor- 
tantes. En effet, il récupère principalement un 
code d'instruction en mémoire, l'interprète et 
l'exécute. C'est à dire charge un registre avec 
une valeur, ou va chercher un octet en mémoire 
externe, ou alors effectue une opération arith- 
métique et stocke le résultat quelque part, etc. 
Essayons un peu de comprendre comment il 
fonctionne, à l'aide d'une description des élé- 
ments qui le composent. Voir Fig. 2. Le CPU 
possède en premier chef de la mémoire vive 
interne, et différents registres. Les registres 
principaux sur 16 bits sont le PC (Program 
Counter) et le DP (Data Pointer). La mémoire 
vive interne à ne pas confondre avec la Ram 
externe est constituée de 96 octets, formant 
entre autre la pile d'adresses du CPU. Les 
douze premiers octets de cette pile correspon- 
dent aux registres utilisateurs du CPU : C'est 
avec eux que l'on programme en LM. Nous 
avons de plus trois registres P, Q et R sur 7 bits 
qui sont des registres d'index de la pile. Ils per- 
mettent d'adresser les registres 8 bits cités pré- 
cédemment. Nous avons aussi une unité de 
contrôle qui surveille les opérations internes et 
nous constatons la présence d'un quatrième 
bus d'adresses sur 7 bits pour adresser la ram 
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interne des 96 octets. Il va permettre l'utilisa- 
tion des registres internes du microprocesseur. 
Le CPU possède aussi l'ALU (Aritmetic Logi- 
cal Unit) qui permet l'exécution d'opérations 
arithmétiques ou logiques. Les résultats étant 
stockés nous le verrons, dans le registre A 
appelé aussi accumulateur ; c'est le registre de 
loin, le plus utilisé. Accolé à l'ALU se trouve 
deux drapeaux ou Flags, C le Carry (retenue) 
et Z le zéro. Ces deux flags sont la plupart du 
temps modifiés (on dit affectés) par les opéra- 
tions faites dans l'ALU. Chaque indicateur est 
sur un seul bit et peut valoir 1 ou 0. Le flag Z 
est mis à 1 si le résultat d'une opération est 
nul, il est mis à 0 si le résultat n'est pas 0 (NZ : 
Non Zéro). Le flag C est mis à 1 si l'opération 
effectuée occasionne une retenue, il est mis 
à 0 dans le cas contraire. Bien entendu, on peut 
tester le contenu de ces flags, les mettre à 1 
ou 0 directement. Il est à noter que ces flags 
servent entre autres de conditions pour effec- 
tuer des branchements dans un programme LM 
(instructions JRccx ou JPcc), tout comme le 
IF GOTO en Basic. Le registre DP est lui parti- 
culier, puisque sur 16 bits (2 octets), et des- 
tiné à adresser la Ram externe (on dit aussi 
pointer) pour récupérer ou placer des octets à 
partir d'une adresse contenue dans DP. On peut 
effectuer sur lui une incrémentation (DP+ 1), 
une décrémentation, ou le charger avec une 
adresse issue des registres internes X ou Y, et 
bien d'autres opérations intéressantes. Egale- 
ment sur 16 bits, le registre PC fournit l'adresse 
de l'instruction LM (op code) suivante. Il s'in- 
crémente automatiquement et peut être modi- 
fié par une instruction de branchement comme 
un JUMP ou un CALL. Normalement le dérou- 
lement est séquentiel, mais dans le cas d'un 
branchement on dérive PC pour rendre l'exé- 
cution séquentielle. Dans les registres 
d'adresse on trouve aussi P, Q et R sur 7 bits. 
P et Q servent à indexer la Ram interne de 96 
octets et plus précisément à effectuer des 
échanges, des mouvements de valeurs entre 
les registres internes. Ils permettent aussi l'uti- 
lisation des 4 ports d'Entrée/Sortie. R est lui, 
le pointeur de la pile des adresses. Comme je 
l'ai déjà dit les douze premiers octets de cette 
Ram interne (de &00 à &0B) constituent les 
douze registres internes principaux. Ils se nom- 
ment dans l'ordre : I, J, A, B, XL, XH, YL, YH, 
K, L, M, et N. Voir Fig. 3. 

Voyons un peu leurs fonctions. Les registres 
I et J (aux adresses &00 et &01 ) sur un octet 
chacun, sont des registres d'index. Ils servent 
de compteur lors d'échanges de valeurs entre 
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d'autres registres, par exemple. Ils permettent 
ce que l'on appelle dans le jargon LM, les 
Moves Blocks ; c'est-à-dire les mouvements 
d'un certain nombre d'octets, d'une adresse 
de la Ram interne vers une autre. Ce nombre 
est alors contenu dans I ou J (on place de 
nombre-1 dans un de ces registres, nous ver- 
rons comment bientôt). Il est à noter que le 
registre J contient la valeur 1 en permanence, 
et qu'il convient de ne pas se servir de lui (sans 
le réinitialiser à 1) à moins d'y être obligé. J 
sert en effet dans des sous-programmes LM de 
base, aux opérations sur 2 octets. Le système 
le place de temps en temps à 1 , mais il le con- 
sidère le plus souvent initialisé à cette valeur. 
Alors pas touche ! ou alors on plante tout. Pas 
de panique, il vous reste toutefois I. Le regis- 
tre A, a lui un statut bien particulier. Il est le 
plus usité et possède un ami de longue date 
qui lui sert de sauvegarde temporaire, j'ai 
nommé le registre B. A s'appelle l'Accumula- 
teur et B l'extra accumulateur. On peut de 
temps en temps les apparier pour constituer le 
registre BA sur 2 octets (16 bits), pour faire 
des opérations dans l'ALU nécessitant 16 bits. 

Puisque l'on parle de registres doubles, voilà 
qu'arrivent nos amis X et Y. Ils servent un peu 
comme DP, de pointeur d'adresse. Ils sont 
constitués de 2 octets consécutifs en Ram 
interne : en fait de 2 registres consécutifs. Par 
exemple XL et XH, L pour Low (Poids faible) 
et H pour High (Poids fort). On voit que les 
adresses sont donc placées à l'envers, Poids 
faible, Poids fort. Car les registres 8 bits sim- 
ples constituant soit X, soit Y sont placés à 
l'envers dans la Ram interne, Low High. Nous 
verrons par la suite que le registre X est tradi- 
tionnellement utilisé avec l'instruction IXL, pour 
copier les informations de la Ram. externe vers 
l'accumulateur. Tandis que Y avec l'istruction 
IYS, se charge de l'opération inverse, A vers 
Ram externe. Pour finir aves ces registres clas- 
sique, notons la présence de K, L, M et N qui 
sont des registres simples sur un octet, utili- 
sés pour des stockages temporaires d'informa- 
tions, et laissés libres pour les utilisateurs que 
nous sommes (ou deviendrons). Hormis la pile, 
il y a aux adresses &5C, &5D, &5E et &5F les 
registres d'Entrée/Sortie appelés aussi Port E/S 
(I/O). Ce sont les instructions OUTA, OUTB, 
OUTF, OUTC qui leur envoient des informa- 
tions. Nous pouvons maintenant nous occuper 
de la pile. Elle est du type LIFO (Last In First 
Out) c'est à dire dernier entré premier sorti. Le 
sommet de cette pile est pointée en perma- 
nence par le registre R. R est modifié par les 


instructions PUSH, POP, CALL, RTN. Après un 
PUSH, R décroit de 1 et avec POP, il croit de 
1 . Tandis qu'avec CALL, R décroit de 2 et aug- 
mente de 2 avec RTN. On peut donc empiler 
(PUSHER) ou dépiler (POPER) des adresses ou 
des valeurs. On a droit qu'à 2 valeurs à la fois ; 
donc une adresse. Celà se comporte comme 
une pile d'assiette où il vaut mieux prendre la 
dernière placée au sommet de la pile que la pre- 
mière placée tout en bas. C'est donc la dernière 
valeur empilée, qui sera récupérée la première. 
La pile débute à l'adresse &5B de la Ram 
interne et remonte en décroissant jusqu'à 
l'adresse &40. 

Malheureusement tous les registres situés de 
&0C à &3F ne sont pas disponibles. Certains 
sont des flags ou des pointeurs en Ram interne. 
Par exemple sur le PC 1 350 ( et probablement 
les PC 14xx, 2500, et 126x) les registres &30 
à &3F sont indisponibles. De même pour les 
registres &10 à &1F pour la série 1250. Nous 
préciserons davantage le moment venu leurs 
contenus, lors d'une étude approfondie de la 
Ram interne. Sachez de plus que sur le PC 
1 350, les registres de & 1 0 à &2F sont regrou- 
pés de 8 en 8 pour former des registres d'opé- 
rations (souvent en BCD) notamment sur les 
variables ou l'affichage. Ils sont appelés res- 
pectivement (de &10 à &17, de &18 à &1F 
etc.) Xreg, Yreg, Zreg et Wreg. Sur la série 
1250 nous aurons les mêmes de &20 à &3F. 
Voilà, nous allons refermer pour cette fois-ci, 
le voile rapidement levé sur le cœur de nos PC. 
La prochaine fois, nous écrirons notre premier 
programme LM. En attendant préparez-vous. 

J.-F. V. 
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3 UTIUf AIRES EN BASIC 




MODE D'EMPLOI DU PROGRAMME 
LIST RES 

Après avoir tapé le programme sans oublier la 
ligne 1 , tapez RUN pour lister le mode RESERVE 
sur la CE-150. 

Remarquez toutes les astuces utilisées dans ce 
programme. Voici les explications sommaires 
des utilisations des lignes : 

10 Initialisation des paramètres 
1 5 Stockage des adresses de début de défini- 
tion des touches 
20 Fin du mode réserve 
25 Affiche le n° de la réserve 
30 Ecrit le gabarit 

35 Ecrit la correspondance des touches 
40 Si rien de défini pour cette touche 
45 Transfert en ligne 1 de la définition 
50 Listing de cette ligne 
55 Réinitialise la ligne 1 

Marc Girondot 


UST RES 


1 REH **************************************************************************** 

,10 "A-dEAR SOPN ïTEXT sCSIZE Ü RESTORE l;K=PE£K £78A6*256+PEEK &78A7îL=PEEK &7863iH=L*256iDIM A(23) 

15 FOR 1NH+&56TQ H+SC4UF PEEK BLET AtPEEK B*(PEEK B<24))=BîNEXT B: GOTO 25 
20 B=H+&C4sNEXT B 

25 A$-*RES£RUE IITiFOR A=1T0 3 îCDLQR OîLPRIHT LEFT* (AM+A) 

30 POKE &79C4 , &B0 ^ L , 8+ 1 A- îî *26 , 26 s COLOR ÜLPRIHT 1 "îYsGRAPH ïLIHE (0,8M167,Î8),,,B:GLCURSDR (0,0)iTEXT 
35 CSIZE IïCOLDR 2iLPRIHT * ! *?CHR* 34î" « * X B"îCQLBR 3:l*8*(A+lA=2MA=3))-8 

40 FOR C-1TD &îF s KïB s A{ I+C MLPRIHT * F"ÎÜF B s 0LPRIHT STR* C?*: w sHEXT CîGOTQ 55 
45 B s B+lïPDK£ F» PEEK BîF-F+lÜF PEEK fB+1 )>31THEH 45 
50 POKE K~2^CSP0KE F»&B*»LF -ULLIST CîLF -3SHEXT C 

55 LPRIHT ïHEXT Aî A-PEEK (K-l)îFQR B*KT0 K+A-2ïP0KE B,42 ïHEXT BîPDKE K-2,1,A,&F1,«cABïLF 5îENB 


MODE D'EMPLOI DU PROGRAMME 
LIST VAR 

Tapez RUN et le programme vous sort à l'écran 
tous les noms des variables non-fixes qui ont 
été utilisés dans le programme. 

Mr. Menu Michel 


UST V AB 

10 r? L"CLS ïwhIT »h=SThïüS 3 

20 IF A=256*PEEK &7864PRIHT H FIH wt .ENB 

30 hI-CHRI PEEK hî£=FEEK (ntl ^C=BhHB 15F 

40 a$=A$-tCHR$ ( 0+120^1 O&OFhHB CaiA'M+CHRI 4&24^( i BhHB MG)>û3) 

50 IF mm 180 )-0THEH 80 

60 B +STRt PEEK (fi+5 )+"?“+STRÎ PEEK ÿ ! 

70 IF îBhHB &2ÜÎLET fi$=ft$+ u *“+$TR$ PEEK 

80 PRIHT Rfîrt=A+256*PEEK tft+2 i*PE£K C#+3H4sGBTD 20 


MODE D'EMPLOI DU PROGRAMME ERASE 

Tapez le programme à une adresse quelconque 
de votre mémoire, celui-ci est en effet relogea- 
ble. Pour l'utiliser, faire : (&40C5 étant à rem- 
placer par l'adresse correspondant à l'endroit 
de la mémoire où vous l'avez logé) 

A$ = « nom de la variable à effacer » 

CALL &40C5 
Par exemple : 

A$ = « AA$ » CALL &40C5 
A$ = « A ( » CALL &40C5 


4 0 L ijs OU 

ou 

OO 

Ou 

0 O 

48 

r 8 

4 A 

C8 

4 o c s ; c ü 

58 

7 7 

Sill 

4E 

45 

b 7 

41 

DO 

4 0 DO s Si 

8 0 

b 7 

5 b 


*7F 

51 

b5 

D8 

4 ODS ï OO 

1 F 

69 

01 

4 5 

b? 

24 

8 b 

EO 

4uEÜ î î h 

IIIS 

28 

&p 

lb 

«b? 

30 

lltllï? 

E8 

40ESï i 9 

b 7 

5b 

83 

15 

b? 

3 A 

81 

FO 

40F ü i 04 

b 7 

4 1 

81 

OU 

liS?;' 

5 F 

1 D 


40F es IF 

88 

1F 

isiï 

2 O 

45 

9E 

IF 

00 

4 l 00 : 5 b 

80 

H 5 

7 8 

99 


h5 


08 

4 1 û S ï 9 0 

Oh 

84 

A? 

7 8 

64 

8 3 

45 

10 

4 110 5 4 5 

H 7 

'7 

4E 

8 9 

«06 

05 

H? 

i 8 

4118:7? 

4F 

8b 

OE 

44 

45 

FD 

C 8 

2 0 

4120s 45 

F 9 

F B 

CA 

FD ®8h 

WM 

08 

28 

4 1 28 : 9F 

20 

FD 

88 

FD 

1 A 

44 

45 

30 

4 1 30 s i- L 

;iO£C: 


F 9 

FD 

«Ch 

FD 

ISAlïÏÏ: 

3 8 

4 1 38 : 82 

08 

o|:l| 

A 5 

78 

99 

96 

8 .1 

40’ 

4 1 4 0 ; 06 

h5 

7 8 

9 A 

i 6 

®8b 

06 


48 

4148:46 

1 5 

OE 

9E 

i 2 

84 

AE 

78 

50 

4 1 50 : 99 

04 

hE 

7 8 

9h 

99 

00 

00 

58 


ERASE 


Mr. Menu Michel 



ASTUCES 



Astuce sur Soft Text 

Ce logiciel quoique très bon, possède deux 
défauts : 

•Il ne permet pas de faire un DELETE à 
répétition 

• Il ne comprend pas l'apostrophe 

Pour le premier problème, la solution est de 
faire un DRIVER qui gère lui même la répétition 
du DEL. Pour le second vous pouvez redéfinir 
un caractère préexistant, par exemple dire que 
le i tréma avait pour code celui de l'apostro- 
phe mais il n'était plus question alors d'écrire 
le verbe haïr. C'est tout de même dommage ! ! 
Pour remédier à cela, je vous propose, lorsque 
vous voudrez mettre une ' cette séquence de 
touches : 

• fin de texte : SPACE IN ** 

• Au milieu d'un texte : INS 

Et le caractère marquant l'insertion se trans- 
formera en ' sur l'imprimante. 

Marc Girondot 



Astuces pour l'utilisation de PC-HEX 

Cet article intéressera tout ceux qui possèdent 
le logiciel PC-HEX et qui savent déjà bien 
l'utiliser. 

Ce programme est un moniteur héxadécimal 
compatible avec le logiciel PC-MACRO. Sa 
grande puissance vient de sa possibilité d'exé- 
cuter des programmes en langage machine en 
pas à pas. Mais pour commencer l'exécution, 
il faut obligatoirement passer par l'éditeur incor- 
poré au programme ce qui exclu de tester le 
passage de paramètres avec une syntaxe de 
type : 

CALL (adresse), (variable) 

Et pourtant, c'est possible, passez en MODE 
PRO du moniteur et exécutez le programme en 
ROM à l'adresse &CA58 ce qui est la même 
chose que la macro &42. Il se produit alors un 
retour au BASIC. Tapez POKE &764E,65,67 
pour réinitialiser les indicateurs, et vous avez 
l'impression d'être sous BASIC tout à fait nor- 
malement. Mais en réalité les interruptions pro- 


grammées par le moniteur tournent encore, si 
vous tapez BREAK le programme affiche 
l'adresse de l'instruction qu'il était en train 
d'exécuter. 

Exemple : 

BEEP 100 BREAK affichera : 

BREAK IN (adresse) : 

Donc le traitement du BEEP par l'interpréteur 
passe par cette adresse. 

Et si vous lancez un programme par un CALL, 
vous pourrez le BREAKER simplement. Remar- 
quez que le BREAK POINT défini lors du lace- 
ment conduit à des résultats erronés. 

La compréhension de ce qu'il se passe exac- 
tement va nous permettre d'utiliser ce pro- 
gramme plus simplement. Essayez : 

G : CA58-&78C0 ENTER 
Donc retour au BASIC (= CALL &CA58) et 
arrêt si le programme passe à l'adresse &78C0. 
Faites alors POKE &764E,65,67 
PEEK &78C0 ENTER 190 = &BE SJP 
PEEK &78C1 *256 + PEEK &78C2 ENTER 
Il s'affiche alors un nombre qui représente 
l'adresse où se situe le traitement du BREAK. 
PC-HEX est limité normalement à 1 BREAK 
POINT qui est défini lors du lancement de l'exé- 
cution, mais en incorporant à vos programmes 
un SJP à cette adresse, il se produira un 
BREAK. On peut remarquer qu'avec cette 
méthode il est impossible de faire un BREAK 
POINT dans un progamme en ROM. 

Marc Girondot 

(c) 1985 Le Sharpentier 



Précision à propos des R.A. 


Pascal Abrivard a oublié de signaler que les rou- 
tines de comparaison numérique, la comparai- 
son à zéro et les opérations sur les registres 
arithmétiques ne fonctionnent pas sur les nom- 
bres entiers. Pour remédier à celà, voici une 
routine bien pratique : 

Tansfert dans Xa en flottant de la valeur de U 
en 16 bits 

Signes : VMJ &10,&00 CD 10 00 
Ainsi tous les calculs sont permis ! 

P. Matsis 

(c) 1985 Le Sharpentier et l'auteur 



IffliCiS 



Tron + Mgp 


Nous nous sommes aperçus en lisant le mode 
d'emploi de XMON qu'une curiosité avait 
échappé à presque tout le monde, il est en effet 
impossible de passer en mode TRON si on a 
défini l'imprimante CE-1 50 comme périphéri- 
que prioritaire. 

10 : OPN « CMT » : TRON : GOTO 10 
Après RUN, on est obligé d'appuyer sur \ pour 
laisser continuer le programme, mais 
10 : OPN « MGP » : TRON : GOTO 10 
s'exécute normalement après un RUN. L'erreur 
se trouve dans les premiers octets de la défi- 
nition des tables en ROM. 

Le Club 



Plus d'erreur 44 ? 

Mais oui c'est possible ! 

Il semblerait que vous rencontriez souvent des 
erreurs 44, erreurs dûes à un problème de char- 
gement sur cassette. Voici la procédure pour 
vous en débarrasser une fois pour toute I 
Ne connaissant pas spécifiquement votre 
magnéto, je ne pourrai vous expliquer la pro- 
cédure de réglage que dans un cas général. 
En général, c'est le réglage de l'azimutage qui 
est en cause lors de problème de chargement. 
Pour le régler, il convient de jouer sur la petite 
vis qui apparaît lorsque l'on passe en mode 
PLAY au dessus de cette touche. 

Il faut alors la tourner sensiblement soit à droite 
soit à gauche pour avoir le meilleur rendu 
sonore possible. Vous pouvez essayer avec une 
cassette ayant de la musique, c'est plus facile 
à régler. Vous pouvez utiliser aussi la cassette 
micro-azimut de DATA-OR qui possède des 
sons de fréquence pure ce qui simplifie encore 
cette procédure, puisqu'alors le réglage est bon 
quand le volume est maximum. 

Marc Girondot 


LANGAGE MACHINE 


FONCTIONS HIT AMO 
ET AMI 


Ces fonctions sont citées dans le 
TRM, mais elles sont très mal 
expliquées, nous allons donc 
vous dévoiler leurs secrets. 


Elles permettent de créer des interruptions dans 
les programmes pendant des temps définis au 
millionième de seconde et ce par action sur le 
TIMER. Ce dernier est incorporé au LH 5801 
(votre microprocesseur préféré), il est consti- 
tué d'un diviseur sur 9 bits que l'on charge à 
partir de l'accumulateur A. Cet accumulateur 
étant constitué de 8 bits, il est nécessaire de 
complémenter le chargement par un neuvième 
bit. C'est le rôle des instructions AMO et AMI 
qui chargent le 9 8 bit respectivement à 0 et 1. 
Le nombre chargé dans le TIMER devrait donc 
être compris entre 0 et 511. En fait, la valeur 
0 n'est pas admise, pour le microprocesseur, 


c'est qu'il n'y a rien de chargé et il se plante irré- 
médiablement si on essaye de provoquer 
l'interruption. 

Après avoir chargé le TIMER, par AMX, celui- 
ci décompte son contenu au rytme d'une unité 
par cycle (1/1.300 000 s), tout en continuant 
le programme. Puis, lorsqu'il trouvera l'instruc- 
tion HLT, le microprocesseur se stoppera le 
temps de ramener le contenu du diviseur à &1FF 
en prenant un cycle par unité décomptée et 
ensuite le remettre à 0. 

En fait, le nombre mis dans le TIMER ne corre- 
spond pas au nombre de cycles, il faut utiliser 
une table de conversion qui se trouve aux pages 
15 et 16 du TRM et qui est expliquée dans « la 
logique du POLINOMINAL COUNTER ». 

Tout ce qui est décrit jusqu'à présent est vala- 
ble si le FLAG IE est levé (SIE), sinon le micro- 
processeur se branche sur le macro &FA donc 
à l'adresse &E22C où le TIMER est remis à 0. 
Les applications sont extrêmement nombreu- 
ses surtout dans le domaine de la synchroni- 
sation. 

Le petit programme présenté ici produit des 
BEEP espacés par des temps différents. La pre- 


mière série est séparée par 0 cycle, et la 
deuxième par 510. Tapez le n'importe où en 
mémoire, et faire CALL (1 er8 adresse), tapez sur 
une touche pour avoir le son grave (510 cycle) 
et encore une fois pour revenir au BASIC. 
Vous pouvez vous demander pourquoi 0 cycle 
et non 511. En effet, dans la table du TRM, le 
TIMER doit prendre dans ces deux cas la valeur 
1FF. Mais ici le HLT se trouve immédiatement 
après le chargement du TIMER, il n'a donc pas 
le temps de se décrémenter, le HLT trouve une 
valeur de 1FF, ce qu'il recherche, il met donc 
le TIMER à 0 et retourna Si par contre une ins- 
truction était intercalée entre le AMO et le HLT, 
le temps d'exécuter cette instruction (minimum 
4 cycles) le TIMER serait passé successivement 
à OFF, 07F, 03F... et lors du HLT, il continuera 
à décrémenter pour retrouver le 1FF, donc bien 
511 cycles. 

Pour bien comprendre ces routines, il est pré- 
férable de les désassembler ! 

© 1985 Christophe Poulin et Marc Girondot 


2800: bE E2 3D FD Eb FO 08 40 27 
280S:b5 FF FD DE FD bl FD E9 55 
2A1QSF0 08 bF bE E4 18 9b 15 5b 
281 8 ï bE E2 3D FD Eb FO 08 40 3F 
2820: b5 FF FD CE FD bl FD E9 5D 
2828 s FO 08 bF bE E4 18 9b 15 73 
2830:98 00 00 00 00 00 OO 00 F4 


LA LOGIQUE DU 
« POLINOMINAL 
COUNTER » 

Voire courrier prouve que vous 
n'avez pas été traumatisé par 
les pages 15 et 16 du TRM, 
pourtant ii y avait de quoi. 

Sur deux pages s'étalent des chiffres, exacte- 
ment 1 024, qui n'ont, au premier abord rien 
de logique. Or un ordinateur étant la logique 
même, c'est étrange ! On a donc cherché, et 
trouvé, en partie. 

On sait à présent passer d'une ligne à l'autre, 
mais pas d'une colonne à l'autre. C'est déjà la 
moitié du travail ! Soit un nombre sur 9 bits. 
b8 b7 b6 b5 b4 b3 b2 bl bO 


pour passer à la ligne suivante on fera : 
b0+b4 b8 b7 b6 b5 b4 b3 b2b1 
+ signifiant XOR ou EOR. 

Donc 

b0+b4=b8 
0+0 =0 
0+1 =1 
0+0 =1 
1 + 1 =0 

C'est comme si les bits 0 à 7 étaient dans A, 
le bit 8 dans c, que l'on fasse un ROR et 
c+c h, c étant le carry et h le half-carry. 
Pour ceux qui n'ont pas le TRM (grave 
lacune I), voici une routine qui permet de con- 
naître, à partir d'un nombre de cycle donné, la 
valeur à mettre dans le TIMER. Il utilise la 
découverte permettant de passer d'une ligne 
à l'autre de la table du TRM page 1 5 et 16. 
Pour l'utiliser, mettre dans une variable numé- 
rique le nombre de cycle voulu, et faire CALL 


(1 ere adresse), variable il s'affichera la valeur 
du TIMER adéquate. 

Ce programme servira à ceux qui n'ont pas le 
TRM ou pour étudier un peu le LM. 

Le programme est relogeable, vous le taperez 
n'importe où en mémoire. 

Routines en ROM utilisées : 

&E669 BEEP1 

&EF81 mise à &0D du tampon de sortie 
&ECFA affichage des 26 premiers caractères 
du tampon de sortie 

&E24A2 attend la pression d'une touche. 

(c) 1985 Marc Girondot. 

2900 • 4C 02 81 03 b8 E6 69 58 5C 

2908:01 58 FF 44 4C 02 8b 13 bb 

2910:14 5C 01 DI 81 06 87 06 8F 

2918:58 01 8E 04 97 06 58 00 21 

2920:18 9E 18 bE EF 81 94 b3 8E 

2928:2F 8E 7b 60 14 b9 FO Fl b7 

2930: b3 30 b7 38 81 02 b3 06 69 

2938 : 8E 7b 61 14 b9 OF b3 30 88 

2940: b7 38 81 02 b3 06 8E 7b bF 

2948:62 E9 78 75 00 bE EC F8 4D 

2950: bE E2 48 F9 98 00 00 00 F6 



CONSIDERATIONS TEMPORELLES 


Peut-être réussirez-vous à rega- 
gner le temps perdu à lire cet 
article en appliquant les conseils 
qui y saut prodigués eee 

Si noircir l'écran de votre PC-1500 n'est pas 
votre but ultime en programmation, continuez 
quand même cette lecture, ce n'est en effet 
qu'une proposition d'exemple que vous exécu- 
teriez certainement ainsi : 

10 : CLS : WAIT 0 

20 : FOR J=0 T0 155 : GPRINT &7F ; : NEXT J 



Vous qui avez toujours rêvé 
devant le 1261 et ses deux 
lignes et le 1 350 et ses 4 lignes 
de 24 caractères vous allez être 
content puisque ce programme 
donne deux lignes au PC-1500 
chacune ayant en moyenne 40 
caractères. De plus ces deux 

S nés sont visualisables ensem- 
i\ 

Comment ? L'alphabet ainsi que les autres 
codes ASCII ont tous été redéfinis dans une 
matrice ayant au maximum trois points de hau- 
teur. Le résultat est assez bon pour la plupart 
des codes ASCII, seul & a réellement posé un 
problème puisqu'il a été transformé en@. 
Les autres codes ASCII sont assez reconnais- 
sables. Notez que les majuscules et les minus- 
cules sont identiques et que le 0 et le 0 sont 
aussi représentés de la même façon. 

Tapez le programme et avant toute manipula- 
tion il faut le reloger : 


30 : WAIT : PRINT 

Vous trouvez son exécution trop lente (4 s), moi 
aussi ! Remplacez le &7F par 127 ou mieux 
encore par « 7F » et vous gagnerez respecti- 
vement 0.5 et 0.65 seconde. 

Mieux encore en transformant la boucle ainsi : 
20 : FOR J=1 TO 78 : GPRINT « 7F7F » ; : 
NEXT J 

puisque vous gagnez cette fois 2.25 secondes. 
Vous avez donc compris que plus on écrit de 
colonnes à la fois, plus on va vite. Il serait ten- 
tant d'essayer d'écrire la ligne complète 
d'un seul coup, mais il faudrait au moins 


Choisissez une adresse où le mettre, par exem- 
ple : 

PEEK &7863* 256 + &C5 

mettre cette adresse dans A, tapez NEW 

A+&1B7 

Tapez le programme grâce au moniteur SHARP 
à cette adresse. 

Tapez alors : 

POKE A+&E, (A+&16) /256, (A + &1 6) AND 
&FF 

POKE A + &5C, (A + &13C) /256, &4A, 
(A + &13C) AND &FF 

POKE A+&139, (A+&16) /256, (A+&16) 
AND &FF 

et le programme est relogé. 

Le programme est prévu pour être utilisé faci- 
lement à partir du BASIC. Il suffit de faire un 
PRINT en WAIT 0 et de faire un CALL à la pre- 
mière adresse. Si vous devez afficher un nom- 
bre, il faut le faire en le convertissant d'abord 
en chaîne par STRÎ. Si vous voulez afficher plu- 
sieurs variables, il faut les relier par un + et 
non un ; 

Pour l'utiliser en LM, mettre d3ns Y le premier 
octet de la zone où est stocké le message, qui 
doit se finir par un code 32. Mettre dans &734F 
le numéro de la ligne (0 ou 1 ) où doit se trou- 
ver le début du message et dans &7875 le 
numéro de la colonne. Faire alors un SPJ (début 
+& 16 ) 

(c) 1985 Philippe Matsis 


156*2=312 octets, ce qui est monstrueux. 
On va donc user d'une autre méthode, en stoc- 
kant les 7F dans une variable et en éliminant 
la boucle FOR-NEXT. 

Une variable peut contenir jusqu'à 80 caractè- 
res, ce qui permet de noircir 40 colonnes. Il y 
a 156 colonnes à noircir, donc au minimum INT 
(156/401+1=4 variables, ou plutôt 4 fois la 
même variable définissant 156/4=39 colonnes. 
On fera donc : 

20 : CLEAR : DIM A$ (0) +A$=« 7F7F7F » : 
A$ (0) =A$ (0) ; A$ (0) ; A$ (0) qui s'exécute 
en 0.25 secondes soit un gain de 3.75 secon- 
des par rapport à la première version. 
Remarquez le ; qui sépare les variables. Dans 
certains cas on peut mettre un + mais le ; 
s'exécute plus rapidement et on ne risque pas de 
dépasser la longueur du tampon servant aux 
manipulations de chaînes de caractères. 

(c) 1985 Philippe Matsis 


2800: F2 E9 73 4F 00 E9 78 75 9B 
2808:00 58 7b 5A 60 bE 28 16 bB 
2810: bE E2 48 bA E6 69 5E bO 3b 
2A 1 8 : 89 01 9A 15 b9 7F b7 20 8A 
2A20 : 83 01 9A b7 60 89 02 b5 bF 
2A28 : 20 b7 20 89 IC EF 78 75 CA 
2A30 : 04 CB 90 81 11 E9 78 75 23 
2A38 : 00 EB 73 4F 01 89 06 Eb 8C 
2840:73 4F 01 8E Ol 9A 54 9E 48 
2848:33 b7 61 81 07 b7 7b 83 FA 
2850:03 Fb bl 20 b7 7b 81 03 FF 
2858: Fb bl lb 48 2b 48 3C 68 AC 
2860:21 68 OO FB 98 26 8b 28 83 
2868 : FB C8 05 18 A4 bF 01 89 61 
2870:07 94 b9 FO 8b ÎO 8E 05 OC 
2878:94 b9 OF 8b 09 A4 bB 01 F4 
2880:89 01 44 28 9E IC 84 bB bb 
2888:01 89 01 44 28 FB 88 60 90 
2890: 9E 2B 68 OO FB 88 FB 88 19 
2898:60 A4 bB 01 89 Ol 44 28 7A 
2880:05 FB C8 A4 bF 01 89 08 89 
2888: FB 88 b9 FO 8b 08 8E 06 2b 
28bÛ : FB 8A b9 OF 8b 02 9E 20 74 
2Ab8 : 60 85 78 75 FB C8 24 F9 b6 
28CO : 83 78 75 AE 78 75 CB 90 72 
28C8 : 8 1 lb EB 73 4F 01 8b 09 B2 
28BO : FB 8A FB 28 FB 08 FB 18 C6 
2 ABS : 98 Eb 73 4F 01 FB 88 E9 bA 
28EO : 78 75 00 8E 05 FB 88 AE bF 
28E8 : 78 75 FB 2A FB OA 05 6C 9E 
2AFQ: OO 89 01 Fl b9 OF EB 73 bB 
28F8 : 4F 01 8b 01 Fl FB C8 84 58 
2bOO : bB Ol 89 Ol 44 28 FB 88 64 
2b08 : FB 88 85 78 75 bE EE CE E4 
2blO: FB 28 28 FB 08 FB 8A FB 17 
2b 1 8 : 88 FB A8 FB C8 8E 73 4E A4 
2b20 : 24 AB 73 4E bE EB EF CB 44 
2b28 : 8E FB 88 FB 28 FB 08 89 1F 
2b30 : 02 8E 02 9E 47 FB IA 54 3B 
2b38 : bA 28 16 00 51 01 21 02 B2 
2b40 : 72 72 02 34 21 62 Ol 42 4b 
2b48 : 1 4 01 24 02 10 25 50 55 88 
2b5Q: 20 52 50 27 20 42 02 20 E8 
2b58 : 40 42 10 75 70 57 40 17 88 
2b6Q: 40 57 70 36 04 71 07 60 A4 
2b68 : 1 7 03 76 03 70 50 45 02 2B 
2b70 : 50 55 05 20 15 06 64 57 3b 
2b78 : 02 57 40 76 60 75 40 75 3C 
2b80 : 20 77 50 73 ÎO 33 70 72 2A 
2b88 : 70 70 47 07 25 07 40 71 bE 
2b90: 71 60 71 60 75 70 73 30 E5 
2b98 : 75 74 06 11 04 47 10 17 35 
2bAQ : ÎO 74 70 34 30 34 34 30 bb 
2b88 : 55 25 50 16 ÎO 17 44 03 21 
2bbO: 43 11 03 63 06 26 50 21 32 
2bb8 : 20 44 40 27 50 55 05 72 C8 
2bCG : 02 12 42 07 77 OO OO OO bF 




ECRIRE DES TITRES 


Dans de nombreux jeux, surtout 
ceux provenant du Japon, on 
trouve de superbes litres. C'est 
dans INVADER LM que nous 

On trouve les dessins des nouveaux caractè- 
res aux adresse &4200 à &434F avec 8 codes 
pour chaque caractère dont 7 significatifs et 
le 8 e est un blanc qui sert d'espaceur. Le petit 
programme fourni en annexe sert à exploiter 
ces dessins. Les deux listings sont indépen- 
dants, il faudra mettre simplement l'adresse à 
la place du 4200 aux 7 e et 8 e octet du 
programme. 


avons trouvé l'alphabet entier, 
nous allons donc l'exploiter 
pour en faire aussi. 


Pour l'utiliser : 

Soit N l'adresse où vous avez mis le 
programme. 

*CALL N, variable alpha écrit les codes se 
trouvant dans la variable alpha. 

*CALL N, variable numérique 
écrit les codes qui se trouvent à partir de 
l'adresse donnée par le nombre dans la varia- 
ble numérique et ce jusqu'à un code 0. 


4200: 78 

7C 

16 

13 

36 

7C 

78 

OO 

89 

>8 

4208:7F 

7F 

49 

49 

49 

7F 

36 

OO 

08 

B 

4210: IC 

3E 

63 

41 

41 

62 

37 

OO 

28 

O 

4218:7F 

7F 

41 

41 

63 

3E 

IC 

00 

97 

D 

4220:7F 

7F 

49 

49 

69 

69 

61 

OO 

25 

Al 

4228:7F 

7F 

09 

09 

OB 

OB 

03 

OO 

93 

P 

4230: 1E 

3E 

63 

41 

49 

6B 

38 

00 

60 

<3 

4238: 7F 

7F 

08 

08 

\ 8 

7F 

7F 

OO 

9E 

H 

4240:00 

00 

41 

7F 

7F 

41 

00 

00 

02 

I 

4248:00 

38 

60 

41 

7F 

3F 

01 

00 

22 

J 

4250: 7F 

7F 

08 

IC 

36 

63 

41 

00 

8E 

K 

4258:00 

7F 

7F 

60 

60 

60 

60 

00 

18 

L 

4260:7F 

7F 

06 

OC 

06 

7F 

7F 

OO 

B6 

H 

4268:7F 

7F 

06 

OC 

18 

7F 

7F 

00 

00 

N 

.4270: IC 

3E 

63 

41 

63 

3E 

IC 

00 

60 

O 

4278: 7F 

7F 

OB 

09 

09 

OF 

06 

00 

EC 

P 

4280: IC 

3E 

63 

51 

63 

3E 

5C 

00 

CO 

O 

4288: 7F 

7F 

OD 

19 

39 

6F 

46 

00 

OC 

R 

4290:36 

67 

4D 

49 

59 

73 

36 

OO 

07 

S 

4298:00 

03 

03 

7F 

7F 

03 

03 

OO 

E4 

T 

4280 : 3F 

7F 

70 

60 

60 

7F 

3F 

00 

8E 

U 

4288:0F 

1F 

30 

40 

20 

1F 

OF 

OO 

D6 

M 

42B0 s 1F 

3F 

70 

IC 

70 

3F 

1F 

OO 

88 

W 

42B8 : 4 1 

63 

36 

IC 

3E 

63 

41 

00 

02 

X 

42C0 : 01 

03 

06 

7C 

7E 

03 

01 

00 

08 

Y 

42C8: 00 

63 

73 

7B 

6F 

67 

63 

00 

94 

jiii 

42D0: 00 

36 

36 

36 

36 

36 

00 

00 

20 

1*1 

42D8: 00 

OO 

IC 

IC 

IC 

IC 

00 

00 

88 

SSk 

42EO : 00 

00 

OF 

6F 

6F 

00 

00 

00 

OF 

■ 

42E8: 00 

00 

00 

00 

OO 

00 

00 

00 

28 


42F0: 00 

OO 

70 

70 

70 

00 

00 

OO 

82 

■ 

42F8: 00 

IC 

IC 

IC 

3E 

IC 

08 

00 

FO 


4300: IC 

3E 

51 

49 

45 

3E 

IC 

OO 

06 

€♦ 

4308:00 

44 

46 

7F 

7F 

40 

40 

00 

53 

± 

4310:42 

63 

71 

59 

49 

6F 

66 

00 

EO 

2 

4318:36 

63 

41 

49 

49 

7F 

36 

00 

7C 

M 

4320: 18 

IC 

16 

13 

7F 

7F 

10 

OO 

CE 

-4 

4328:2F 

4F 

4D 

49 

49 

79 

31 

OO 

72 

5 

4330: 3E 

7 F 

4D 

49 

49 

79 

32 

OO 

B8 

6 

4338:00 

03 

03 

73 

7B 

OF 

07 

OO 

85 

7 

4340:36 

7F 

40 

49 

49 

7F 

36 

OO 

CC 

S 

4348: 26 

4F 

40 

49 

49 

7F 

3E 

OO 

9C 

S 


Codage des signes : 


Les lettres de l'alphabet gardent leur même 
code, les autres sont : 




7 r 

— 



a 

b 

C 

d 

e 

f 

g 

h 

i 

j 

^91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

cfM- 

- 

! 


□ 


</> 

1 

2 

3 

4 

5 

6 

7 

8 

9 


4100: F2 

BE 

EC 

8E 

58 

42 

58 

00 

7F 

4108:45 

36 

89 

03 

B8 

E2 

48 

B7 

ED 

4110:41 

8B 

OB 

FD 

CS 

B5 

08 

FD 

87 

4118:08 

FO 

88 

DF 

9E 

OF 

68 

OO 

BO 

4 1 20 : FO 

88 

55 

BE 

EO 

EF 

CD 

8E 

30 

4128:81 

05 

FD 

08 

B8 

E2 

48 

60 

3C 

4 1 30 : 6E 

08 

99 

12 

FD 

08 

9E 

34 

6B 


Par exemple : pour écrire PC-1 500, vous ferez : 
A$ = « PC » + CHR$ 92 + « bfaa » 

CALL &2900, A$ 

Après l'affichage du titre, il faut appuyer sur 


une touche pour continuer le programme. On 
ne peut mettre plus de 19 caractères sur une 
ligne. 

Marc GIRONDOT 



Tapez ce programme compatible 
avec tous les PC- 1 500 grâce au 
moniteur SHARP. Pour démar- 
rer le jeu faites CALL &41D0. 
Pour arrêter la présentation 
tapez successivement &SHIFT et 
enfin OFF ( ! ! !) 


Le jeu consiste bien sûr à aller le plus loin pos- 
sible dans cet univers hostile. 

Vous dirigez un vaisseau qui se déplace d'avant 
en arrière (touches 4 et 6), de haut en bas (tou- 
che ENTER) et qui peut tirer (touche SPACE). 

Vos adversaires viennent de la gauche de 
l'écran. Notez que vous voyez le jeu du des- 


sus. Seules les grosses pyramides ne sont pas 
au niveau du sol, et pour les franchir, il faudra 
être obligatoirement en haut. Attention aussi 
aux projectiles envoyés par les objets se trou- 
vant au sol. Ils montent et descendent, et on 
voit le niveau où ils se trouvent par leur forme. 
S'il est en haut, vous le passerez en position 
basse I 

Vous ne pourrez tirer qu'en position haute (pré- 
sence du viseur). Seuls les objectifs au sol sont 
atteignables et ce au niveau du viseur. 

Pour en sortir, tapez ON. 

Jeu tiré d'une revue japonaise 



4000* OO 

00 

OO 

00 

00 

OO 

OO 

OO 

40 

4008*02 

00 

46 

15 

02 

OO 

OO 

OO 

87 

4010*18 

04 

31 

60 

ÎO 

01 

03 

FF 

12 

4018*58 

04 

7F 

OO 

3E 

28 

00 

74 

OF 

4020*04 

00 

3E 

08 

00 

7F 

7E 

OO 

89 
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14 
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08 

FF 
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OO 
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05 
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7E 
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00 

FF 

Ob 
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00 
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60 
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16 
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4048* FF 

1F 
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3C 

FF 

FF 

76 
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08 
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02 

OO 

OO 

OO 

FF 

87 

4058* FF 

OO 

00 
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01 

Ol 
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9D 

4060*03 

02 

49 

28 

OO 

6b 

OO 

28 

8D 

4068*49 

OO 

OO 

OO 

OO 

OO 

OO 

00 

Fl 

4070*00 

OO 

OO 

00 

OO 

OO 

OO 

OO 

bO 

4078*00 

00 

OO 

OO 

OO 

00 

00 

IC 

D4 

4080* 3E 

2E 

28 

IC 

OO 

OO 

IC 

3E 

CC 

4088* 2E 

28 

IC 

OO 

00 

IC 

3E 

2E 

C4 

4090*28 

IC 

OO 

3E 

7F 

5F 

4F 

49 

C8 

4098*49 

3E 

OO 

14 

36 

36 

3E 

IC 

39 

4080*00 

OO 

14 

36 

36 

22 

IC 

00 

9E 

4088*00 

14 

IC 

22 

22 

IC 

00 

OO 

78 

40b0* IC 

22 

22 

22 

IC 

OO 

OO 

IC 

88 

40b8* 28 

3E 

28 

IC 

00 

OO 

IC 

3E 

OO 

4000* 3E 

3E 

IC 

OO 

OO 

OO 

OO 

OO 

98 

4008*00 

00 

OO 

OO 

28 

OO 

22 

OO 

54 

4000*28 

OO 

OO 

28 

IC 

3E 

IC 

28 

04 

40D8S00 

00 

00 

OO 

08 

00 

00 

OO 

20 

4ÛEO * 00 

OO 

08 

08 

08 

OO 

OO 

OO 

38 

40E8S00 

OO 

08 

OO 

OO 

OO 

00 

OO 

30 
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OO 

OO 
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00 
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OO 

IC 

22 
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4100*3E 
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OO 

IC 
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14 

D7 
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IC 

OO 

El 

41 10*00 

00 

OO 

7F 

41 

7F 

OO 

OO 

90 
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IC 

22 
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7F 

OO 

3E 

D6 
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22 

22 

22 

22 

3E 

OO 

7F 

C8 

4128*41 

41 

22 

IC 

OO 

OO 

00 

OO 

29 

4130*00 

OO 

OO 

OO 

14 
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OO 

OO 

85 

4138* 14 

28 

14 

OO 

22 

55 

55 

55 

EC 

4140*22 

22 

55 

55 

55 

22 

3E 

22 

46 
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02 

3E 

OO 

38 

28 

2E 

28 

C3 

4150* 28 

3E 
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38 

DF 
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28 

38 

06 
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3E 

3E 

28 

E9 
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2E 

28 

3E 

7F 

00 

7F 

OO 

73 
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08 
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IC 
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14 

85 
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IC 
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41 

3E 

7F 

00 

81 

4180*77 
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63 

14 

63 

14 

41 

3E 

8D 
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5D 

OO 

7F 

36 

49 

41 

22 

87 
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OO 

14 

22 

08 

22 

14 

OO 

86 
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41 

55 

OO 

55 

41 

36 

41 

b2 
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22 

OO 

22 

14 

41 

22 

41 

Fl 

4188*00 

OO 

OO 

41 

22 

58 

IC 

IC 

DE 
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OO 

3C 

12 

3C 

OO 

3E 

15 
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3E 

OO 

3E 

28 

00 

IC 

22 

El 

4100* 10 

OO 

1E 

20 

1E 

OO 

3E 

28 

El 
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3E 

08 

34 

FF 

FF 

FF 

FF 

81 
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CO 

8E 

79 

13 

58 

40 

58 

b2 
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bE 

47 

50 

bE 

47 

CE 

58 

81 
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58 

30 

bE 

47 

50 

58 

79 

1 1 
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1E 

bE 

47 

16 

58 

76 

58 

E4 
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68 

Ob 

68 

04 

F9 

84 

51 

DO 
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08 

28 

b5 

00 

51 

51 

51 

C4 
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58 
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58 

OO 

b5 

04 

b8 
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E4 
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b5 

08 

9C 
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E4 
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b9 

90 

lb 

1E 

b5 

45 
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18 
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80 

D5 

lb 
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b5 

80 

bE 

E4 

18 

b9 

02 

2C 
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lb 

51 

FD 

18 

68 

79 

68 

Ob 
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65 

D9 

83 

81 

8b 

09 

25 

80 

4238* DF 

63 

83 

98 

69 

00 

9E 

6b 

4b 

4240*85 

79 

ÎO 

89 

71 

44 

15 

DF 

E2 

4248*81 

03 

53 

8E 

17 

b5 

02 

53 

10 
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5D 

02 

8b 

05 

b7 

28 

81 

E6 
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DF 

5D 

Ol 

8b 

05 

b7 

5C 

7b 
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01 

DD 

OE 

44 

5D 

80 

8b 

bD 
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05 

89 

10 

ED 

79 

05 

02 

C8 
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04 

b5 

FF 

8E 

02 

b5 

01 

3b 
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b5 

05 

OE 
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40 

8b 

1E 

09 
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FF 
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17 

48 
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88 

89 

48 

07 
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68 
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54 

15 

b7 

03 

81 

88 

b7 

08 
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C8 

81 

4430*68 

06 

F5 

88 

03 

59 

00 

FD 

b8 

4438*08 

44 

44 

FD 

28 

88 

b8 

48 

bF 

4440*77 

48 

60 

68 

00 

04 

87 

79 

33 

4448* 1 1 

83 

bC 

60 

FD 

88 

FD 

58 

38 

4450*54 

54 

05 

DF 

41 

81 

06 

54 

3C 

4458* bE 

47 

85 

8E 

8D 

05 

F9 

13 

72 

4460* 41 

b7 

04 

81 

04 

b7 

64 

81 

Cl 

4468* 28 

85 

79 

1 1 

Fb 

00 

b7 

05 

b8 

4470* 8b 

13 

Fb 

bl 

06 

28 

FD 

88 

b3 

4478* b5 

05 

FD 

C8 

56 

56 

F5 

88 

66 

4480*03 

FD 

08 

8E 

04 

68 

18 

88 

6C 

4488*02 

46 

46 

EF 

79 

1 1 

F9 

8E 

58 

4490*72 

44 

54 

54 

55 

8b 

lb 

5F 

8C 

4498* FF 

83 

30 

b5 

08 

53 

05 

F9 

9E 

4480* 13 

OE 

85 

79 

IC 

b7 

24 

83 

9D 

4488*04 

4D 

Ol 

8b 

02 

59 

OO 

54 

78 

44bO* 8E 

19 

bE 

46 

FE 

b7 

OE 

83 

ES 

44b8 s 12 

b5 

05 

53 

68 

40 

68 

52 

7F 

44COS85 

79 

05 

FD 

E8 

D9 

03 

FD 

E7 

44C8*E8 

25 

51 

47 

68 

40 

68 

5E 

23 

44DO * FD 

E8 

46 

46 

25 

41 

54 

44 

85 

44D8* 47 

F9 

13 

89 

04 

b5- 

04 

8E 

43 

44E0S06 

b7 

05 

81 

02 

b5 

Ol 

53 

72 

44E8* 56 

56 

85 

79 

05 

17 

89 

10 

8b 

44FO* DD 

DD 

28 

85 

79 

02 

bE 

46 

38 

44F8* 8b 

86 

83 

04 

Eb 

79 

10 

Ol 

89 

4500 *bE 

47 

61 

FD 

28 

9E 

C2 

b5 

E7 

4508*04 

20 

81 

09 

28 

68 

5C 

88 

71 

4510*02 

FD 

62 

93 

08 

85 

79 

08 

77 

4518* b7 

FF 

8b 

18 

58 

41 

58 

2D 

D8 

4520* FD 

D8 

D9 

D9 

FD 

D8 

85 

79 

E3 

4528*08 

48 

77 

48 

96 

FD 

C8 

68 

47 

4530*04 

55 

Ob 

41 

88 

05 

48 

79 

68 

4538*48 

13 

05 

8b 

19 

ED 

79 

OO 

E9 

4540*10 

8b 

06 

b5 

40 

41 

b5 

32 

43 

4548* OE 

68 

02 

68 

b4 

88 

02 

FD 

88 

4550*62 

93 

08 

b8 

46 

53 

48 

OF 

3E 

4558*58 

79 

58 

17 

05 

F9 

9C 

53 

CC 

4560* b5 

OO 

43 

05 

9C 

53 

b5 

OO 

46 

4568* OE 

9C 

1E 

58 

1D 

17 

81 

OF 

93 

4570* 15 

8b 

OC 

B9 

51 

15 

b7 

09 

60 

4578*83 

05 

DD 

1E 

bE 

47 

16 

48 

85 

4580*16 

58 

15 

68 

05 

bE 

47 

18 

D6 

4588*85 

79 

ÎO 

89 

88 

48 

79 

48 

19 

4590* 18 

45 

b7 

16 

83 

09 

05 

83 

33 

4598*79 

12 

43 

05 

b3 

00 

41 

05 

89 

4580* Fb 

81 

79 

06 

43 

05 

bl 

OO 

F9 

4588* OE 

83 

06 

Eb 

79 

ÎO 

Ol 

8E 

87 

45b0* 25 

28 

28 

58 

76 

58 

1E 

5b 

OD 

45b8* EO 

54 

5b 

30 

54 

88 

08 

b5 

55 

45C0 * 14 

Fb 

80 

81 

09 

28 

59 

2F 

FO 

45C8 * 54 

59 

2F 

54 

88 

08 

E9 

79 

2F 

45DO * 06 

OO 

E9 

79 

12 

OO 

85 

79 

8D 

45D8* 05 

28 

28 

b5 

E4 

F9 

b3 

OE 

C7 

45EOS88 

05 

48 

41 

48 

64 

FD 

C8 

bO 

45E8* 85 

79 

02 

58 

77 

58 

95 

FD 

08 

45FO * D8 

68 

06 

45 

19 

Ob 

51 

44 

7D 

45F8S88 

07 

6C 

03 

89 

17 

85 

79 

F9 

4600*02 

Fb 

bl 

18 

58 

77 

58 

97 

CC 

4608* FD 

D8 

48 

41 

48 

8E 

68 

02 

F2 

4610*45 

lb 

51 

88 

05 

8E 

3C 

58 

b6 

4618*79 

58 

1F 

55 

b7 

8D 

83 

1E 

88 

4620*48 

41 

08 

5F 

FF 

83 

05 

b5 

94 

4628*03 

53 

5F 

07 

85 

79 

02 

58 

82 

4630*77 

58 

95 

FD 

B8 

68 

06 

45 

68 

4638* lb 

51 

88 

05 

8E 

12 

EF 

79 

7F 

4640*21 

FF 

83 

OC 

85 

79 

1E 

8b 

FC 

4648*51 

DF 

8E 

79 

1E 

b8 

41 

DF 

DD 

4650* bE 

47 

8b 

48 

77 

48 

81 

68 

58 

4658*03 

68 

4D 

84 

b7 

02 

83 

02 

38 

4660*68 

13 

58 

76 

D5 

83 

02 

58 

83 

4668* 77 

58 

OO 

24 

6C 

02 

bF 

01 

DI 

4670*83 

OD 

89 

03 

45 

8E 

02 

05 

8C 

4678* Fl 

b9 

FO 

59 

OF 

8E 

Ob 

8b 

E4 

4680*03 

05 

8E 

02 

45 

Fl 

b9 

OF 

5C 

4688*59 

FO 

lb 

51 

88 

23 

FD 

62 

8D 

4690*99 

39 

FD 

ED 

FO 

Ob 

02 

8b 

18 

4698 * OC 

98 

58 

41 

58 

8D 

bE 

47 

29 

4680* CE 

Eb 

79 

13 

CO 

b8 

42 

02 

E9 

4688*85 

79 

08 

28 

05 

Fb 

20 

83 

E3 

46b0* 03 

bD 

FF 

DD 

98 

EF 

79 

22 

b6 

46b8 * 0 1 

ED 

79 

22 

OF 

89 

3E 

bE 

lb 

46C0* 46 

FE 

87 

79 

IC 

83 

36 

85 

E4 

46C8* 79 

1 1 

b7 

7C 

83 

2F 

68 

77 

5C 

46D0* 28 

b5 

30 

61 

05 

61 

87 

79 

OC 

4608*02 

81 

Ob 

85 

79 

IC 

b7 

3C 

D9 

46E0*81 

lb 

b5 

FF 

8E 

02 

b5 

Ol 

bC 

46E8* 61 

b5 

Ol 

61 

DF 

61 

61 

DD 

24 

46FO * 2E 

EF 

79 

1 1 

07 

54 

b5 

09 

F6 


46F8* 51 

b5 

FF 

53 

56 

98 

85 

79 

84 

4700* 18 

28 

85 

79 

lb 

8E 

79 

18 

05 

4708* F9 

22 

89 

03 

85 

77 

39 

8E 

F9 

4710* 79 

lb 

D5 

98 

98 

98 

48 

08 

E2 

4718* 68 

OO 

48 

77 

84 

D5 

83 

05 

87 

4720*55 

b9 

OF 

8E 

04 

15 

b9 

FO 

D4 

4728* Fl 

FD 

98 

58 

41 

58 

46 

FD 

2b 

4730* D8 

D9 

FD 

D8 

68 

05 

24 

D5 

69 

4738*83 

03 

55 

8E 

02 

15 

Fl 

b9 

89 

4740* FO 

49 

OF 

Ob 

41 

88 

1 1 

FD 

bl 

4748* 18 

44 

44 

FD 

62 

93 

33 

98 

FO 

4750* 48 

79 

55 

b7 

FF 

8b 

09 

08 

Ol 

4758* 55 

28 

55 

41 

88 

04 

9E 

OE 

EC 

4760* 98 

55 

28 

b5 

C8 

F9 

b3 

IC 

05 

4768*88 

05 

28 

54 

54 

55 

28 

FD 

88 

4770* 98 

58 

40 

58 

D2 

D9 

D9 

D9 

9E 

4778* Fb 

20 

F9 

82 

FD 

D8 

05 

48 

99 

4780* 77 

48 

95 

FD 

C8 

68 

06 

55 

89 

4788* Ob 

41 

88 

05 

FD 

08 

98 

b5 

FE 

4790*06 

68 

1D 

8E 

18 

b5 

28 

68 

4F 

4798*03 

ED 

79 

Ob 

Ol 

8b 

04 

b5 

98 

4780*07 

68 

OE 

8E 

08 

b5 

04 

68 

1D 

4788*02 

8E 

04 

b5 

03 

68 

19 

FD 

b9 

47bO * 98 

58 

FO 

58 

08 

ED 

78 

6b 

09 

47b8* 01 

89 

03 

FD 

59 

bF 

28 

88 

53 

47CO * 02 

FD 

5b 

40 

28 

88 

02 

FD 

52 

47C8 * 62 

93 

16 

FD 

18 

98 

55 

b7 

D7 

47D0 * FF 

8b 

15 

8E 

78 

75 

55 

28 

DO 

47D8*55 

FD 

88 

bE 

ED 

EF 

FD 

28 

08 

47EO * EF 

78 

75 

Ol 

88 

OE 

9E 

18 

52 

47E8* 98 

b5 

FF 

51 

b5 

03 

51 

b5 

8C 

47F0S01 

53 

56 

b5 

18 

68 

2C 

9E 

E2 

47F8S48 

45 

43 

45 

4D 

42 

52 

45 

7C 




nuit d'été soit reconnaître les 
principales consteHatkms et en 
nommer les étoiles les plus 
brillantes. Mais il est déjà plus 

nétes qui ne cessent de 
a vagabonder » sur la sphère 
des fixes. Le but du pro- 
gramme « EPHEMERIDES » r 

QUELQUES RAPPELS THEORIQUES 

Chacun sait que la terre décrit en une année tro- 
pique de 365,25 jours environ, une orbite ellip- 
tique dont le soleil occupe l'un des foyers. Le plan 
de l'orbite terrestre qui coupe la sphère des fixes 
suivant un grand cercle est appelé plan de l'éclip- 
tique Pour les observateurs terrestres que nous 
sommes, c'est le soleil qui nous paraît décrire 
l'écliptique en une année tropique Aussi, bien 
que ce ne soit qu'une apparence nous parlerons 
de la rotation du soleil autour de la terre Lorbite 
du soleil étant elliptique la distance Terre-Soleil 
varieconstamment et la vitesse du soleil varie 
selon une loi établie par Képler (loi des aires). 
Le mouvement des planètes autour du soleil est 
analogue à celui de la terra Lorbite est ellipti- 
que et plane et le mouvement obéit à la loi de 
Képler. En outre le plan de l'orbite de la planète 
ne coïncide pas avec le plan de l'écliptique Laxe 
de l'intersection des deux plans est appelé axe 
des nœuds. Le nœud ascendant est celui que 
la planète franchit en passant du Sud au Nord 
de l'écliptique 

Ce qui nous intéresse c'est la position des pla- 
nètes par rapport à la terre Du fait que la terre 
et la planète décrivent leurs orbites autour du 
soleil à des vitesses différentes, il résulte que la 
planète vue de la terre décrit sur la voûte céleste 
une orbe complexe dont certains arcs sont par- 
courus dans le sens direct et d'autres dans le 
sens rétrograde Létude directe d'un tel mouve- 
ment se prête mal au calcul. Aussi, pour con- 


écrit pour un PC SHARP 1261, 
est de calculer de manière 
assez précise pour pouvoir 
pointer une lunette ou un 
télescope, les coordonnées 
équatonales et horizontales du 
soleil, de la lune, des planètes 
de la comète de Hdley et des 
30 étoiles les plus brillantes 
visibles dans l'hémisphère 
boréal. 


naître la position d'une planète par rapport à la 
terre; on passe par les étapes suivantes : 
calcul de la position du soleil par rapport à la 
terre (voir fig. 1) 

calcul de la position de la planète par rapport au 
soleil (voir fig. 2) 

un changement de coordonnées permet alors 
d'obtenir les positions de la planète par rapport 
à la terre (voir fig. 3) 

Le plan de référence étant celui de l'écliptique 
et l'origine étant la terre, les coordonnées obte- 
nues sont dites coordonnées écliptique géocen- 
triques (Latitude et Longitude). Pour la lune on 
calcule directement les coordonnées écliptiques 
géocentriques à partir des principaux éléments 
des tables de E.-W. BROWN. 

Un nouveau changement de coordonnées per- 
met de rapporter ces éléments au plan de l'équa- 
teur céleste ; on obtient alors les coordonnées 
équatoriales géocentriques de la planète (Ascen- 
sion droite et Déclinaison), (voir fig. 4). 

Enfin pour repérer la planète par rapport à un lieu 
géographique donné et à une heure donnée; il 
est nécessaire de convertir les coordonnées 
équatoriales de l'astre en ses coordonnées hori- 
zontales (Azimut et Hauteur). Ceci implique le 
calcul du temps sidéral local et la résolution du 
triangle de position (voir fig. 5). 

Pour les étoiles le problème est plus simple Nous 
avons relevé dans l'annuaire de bureau des lon- 
gitudes de 1982 les coordonnées équatoriales 
moyennes des 30 étoiles les plus brillantes de 
l'hémisphère boréal. Il suffit alors de corriger ces 









coordonnées de la précession des équinoxes 
pour la date de l'observation et de les convertir 
ensuite en coordonnées horizontales. 

Les éléments des orbites des planètes et de la 
lune référencés au 0 janvier 1900 à 12 TU, ont 
été empruntés à l'excellent manuel de Jean 
Meeus « Astronomical formulae for calcula- 
tors ». Pour les grosses planètes (Jupiter, 
Saturne, Uranus et Neptune), nous avons tenu 
compte des pertubations à longue période (883 
ans pour Jupiter-Saturne et 4229 ans pour 
Uranus-Neptune) de façon à améliorer la préci- 
sion des résultats. 

Valable pour toute année postérieure à 1582, le 
programme « Ephémérides » calcule la position 
des astres du système solaire avec une préci- 
sion meilleure que 8 minutes d'arc. 

On trouvera ci-après le mode d'utilisation du pro- 
gramme, son ordinogramme et un listing 
commenté 

Jean Hery 




Utilisation du programme « Ephémérides » édition du 18/9/1985 


ENTREE 

PAS 

DONNEES 

REPONSE A 

AFFICHAGE 

COMMENTAIRES 

PAR 


DEMANDEES 

EFFECTUER 



DEF 






A 

la 



LIEU 

initialisation 

Z 

1b 



d'OBSERVATION 

DEF A = AVEC IMPRIMANTE 
DEF Z = SANS IMPRIMANTE 


2 

LATITUDE? 

entre la 


Latitude + si N 




Lat. en °."' 
puis ENTER 

Latitude = .. 

-siS 


3 

LONGITUDE ? 

entrer la 


Longitude + si W 




Long en °.'" 
puis ENTER 

Longitude = ... 

-siE 


4 

Positions 

0 pour Oui 


Si la réponse est 0 on aura 



SOLEIL 

N pour Non 


automatiquement l'éphéméride 



LUNE et 

puis ENTER 


de tout le système solaire pour 



ETOILES? 



la date et l'heure entrée en 7 et 8. 






Si la réponse = N, éphéméride de 
l'astre choisi en 9. 

X 

5a 

EQUINOXE 

Q pour Oui 


Si l'on répond 0 les résultats 



delà 

N pour Non 


seront rapportés à l'équinoxe de 



date? 



la date rentrée au pas 7. 



(0/N) 



Si la réponse est N les résultats 
seront rapportés au 0 JANVIER 
de l'année rentrée en 5b. 


5b 

ANNEE REF? 

Entrer l'année 


Cette question n'est posée que 




de référebce à 


si l'on a répondu N à la 




laquelle on veut 
rapporter les 
résultats. 


question 5a. 


6 



MENU DES 

Pour les différents résultats 





RESULTATS: 

obtenus suivant le Menu choisi, 





1 - Coordonées 

on se reportera au tableau 





équatoriales 

2 - Coordonnées 
horizontales 

3 - Tous les 
résultats 

ci-après. 



Votre choix 

Répondre par 

Choix du Menu 




? 

1,2 ou 3 

...(1,2 ou 3) 


0 

7 

Jour? 

0 à 31 ENTER 





Mois? 

là 12 ENTER | 





Année? 

AAAA ENTER 

DATE = J/M/A 
EQUINOXE DE.. 

Suivant que l'on a répondu N ou 





ou 

0 à la question posée en 5a 





EQUINOXE de 
la date 



ENTREE 

PAS 

DONNEES 

REPONSE A 

AFFICHAGE 

COMMENTAIRES 

PAR 


DEMANDEES 

EFFECTUER 



DEF 






H 

8 

HEURE TU? 

Heure TU de 


Affichage de T'Heure TU, du jour 




l'observati 


Julien correspondant à la date et 




on en h.ms 

HEURE TU = .. 

à l'heure si l’on a choisi le Menu 3. 





Jr JULIEN = .. 
T. SIDERAL = .. 

Affichage du Temps sidéral local. 

S 

9 

ASTRE? 

Frapper le NOM 


Si la réponse en 4 a été Oui 




de l'astre (SOLEIL, 

...NOM de... 

cette question ne sera pas posée 




LUNE ou l'une des 

l'ASTRE 

et le programme déroulera de 




PLANETES ou une 


lui même! 'éphéméride du SOLEIL 




des 30 ETOILES 

Résultats 

de la LUNE et des PLANETES 




en catalogue ou 

(voir détails 

pour la date et l'heure rentrées 




HALLEY pour 

ci-dessous) 

en 7 et 8, puis reviendra 




la comète) 

Retour w 9 

automatiquement en 9 





ERBOR en 4 

Si l'astre demandé n'est pas dans 
le catalogue en mémoire. 




CL puis DEF S 





ASTRE? 

EQU 


Cette réponse EQU (comme 
EQUatoriales) permet d'obtenir 



Année REF 

Année de Réf. 


les coordonnées équatoriales 




de l'annuaire ou de 


ou/et horizontales pour la date 




la carte puis 


rentrée en 7, d'une étoile dont 




ENTER 


on aura relevé les coordonnées 
équatoriales sur une carte céleste 
ou un Annuaire d'une année 
quelconque. 



Nom ETOILES? 

Nom puis ENTER 





ASC (hms) ? 

a en h.ms puis 
ENTER 





DEC (dms) ? 

ô en d.ms puis 
ENTER 

...NOM... 






ETOILE 

Résultats : ASC, DEC, ou/et Az et 
Site pour la date et l'heure rentrées 





ASC (hms) = .... 

en 7 et 8 





DEC (dms) = .... 

L'Azimut est référencé au SUD. 





Az (dms) = .... 

ASC. et DEC. sont donnés en 





Site (dms) = .... 

Menu 1 et 3 





Passage 

Az. et Site sont donnés 





méridien = .... 

en 2 et 3. 



















< SOL » - Calcul pour le 
SOLEIL de 
a,e,m,üj; e 
B=cose, C = sine 


« xxx » calcul pour 
La Planète « xxx » 
de a, e, i, m, 
w et 0 ; idem 
pour HALLEY 


:< LUN » Calcul pour Is 
LUNE de la, ba 
PJf, rayon apparent 
DIST en km et 
Phase en degrés 


• Résolution Equation de 
KEPLER 

* Calcul de Ray-Vecteur RH 

• Argument de Latitude : 

L=ÔT+v 


coordonnées 
cartésiennes du 
SOLEIL 
X=Rh COSL 
Y=Rh SINL 


ASTRE demandé = 
SOLEIL? 




AS$ = FIN ? 


/ Entrez le NOM de l'ASTRE 
ou EQU si il s'agit d'une 
Etoile ne figurant pas dans 
Le catalogue en mémoire : ) 

, T 

Affectation du Nom ou 
de EQU à AS$ 

AS$=EQU ? — \_2üL 


tntrez L'Année de 
Réf. de a Q et L 
ANNEE affectée a Al 




• calcul de : 

• Longitude, hélio IH 

• Latitude hélios bH 

• Coordonnées cartésiennes géocentriques 

• Sens du mouvement apparent 

• Longitude géocent. IG 

• Latitude géocent. bG 

• Distance géocent, RG. 

• Affichage, sens mouv. Apparent 
Distance Géocent. 


calcul de : 

a = ASC. DROITE - G 
ANGLE HORAIRE » HR 
«= DECLINAISON - H 
Non / .«a limr , 


Correction de la parallaxe 
diurne pour a et 5 


Non / EQUINOXE de la date ? \ Oui 
r\__ V=: 


Correction de précession des 
Equinoxes pour a et 5 


• Mise au format hms 
de a et AFFICHAGE de ô 

• Mise au format V» 
de S et AFFICHAGE de ô 


Equinoxe de la date ? 


Equinoxe de la date ? 
V=J0T? 


DT = AA-A1 


DT=A0-A1 


• Calcul de l'Azimut 
et du site 

• correction de réfraction du site 

• Affichage - Azimut - Site. 


Entrez : • Le Nom de l'ETOILE 
• a et ô de l'année 
‘ de Réf. Al 


AFFICHAGE du NOM 
de L'ETOILE 



S'agit-il d'une ETOILE ? 


calcul et Affichage de 
l'heure de passage au 
méridien du lieu d'observation. 














LISTING COMMENTE DU PROGRAMME « EPHEMERIDES » 
POUR PC. 1261 

1!*Ê« SPHEflESIUES 
Jean hêRV 

Edition au 18/9/1985 
2: RED BIBLIOGRAPHIE : 

P. Gui oc Don» J.Meeus* 



: GOTO 15 

DEF A = AVEC imprimante 

10 : " 2" • PRINT = PRInT : 


NAIT 58 

DEF Z = SANS imprimante 

ISîRABIAN : ClEaR : 

Initialisation des variables et passageen 

USING : Z=l80/fl 

mode RADIAN 

— 2F: PRIÏÏT ■'TTÜTD OSSERV " 


ATION : ¥ 

Entrée de la latitude en 0 . ' " + si Nord, 

25: INPUT *LATITUDE(d.ms 

- si Sud 

) ? "î LA: PRINT v Lat 


itudeCdes) = *>LA:LA 


= DEG LA/Z 

Entrée de la longitude 0 . ' " + Ouest, - 

27: INPUT *LÛNGITUDE<d.m 

si Est 

s) ? *5 LO: PRINT "Lo 


ns i tude<d«s)= "»LO:L 


0= DEG LO/Z 


29: INPUT "Positions SOL 

Choix d'avoir les résultats pour tout le 

EIL LUNE & PLANETES 

système solaire ou un seul astre à la fois. 

? û/n v ;ss$ 


30i‘*X*: INPUT 'EQUINOXE 

Choix de rapporter les résultats à l'équi- 

de fa date ? <0/N) 

noxe de la date ou à un équinoxe standard. 




32: IF Q$= v N g INPUT "ANN 

Entrée de l'année de référence si l'on n'a 

EE REF,..L'iA0 

pas choisi l'équinoxe de la date. 

43: PRINT 7IENU BES RESU 

Affichage du Menu des résultats. 

LTATS : " 


44:PRINT V 1 = Coord. £a 


uator iaies" 


45:PRINT "2 = Coord. Ho 


r izontaies" 


46:PRINT w 3=Touslesresu 


1 tats" 


47: INPUT "Votre cftoiz ? 

Choix du Menu 

i j 2ou3 w ;fl 


48: PRINT "Choiz du Menu 


: v j FL 


49:REN“CAlUUL IL 1 


50: 'D': CLS : USING 


55: IF PEEK 26327=8 

Entrée de la date de l'observation. 

PRINT ********** v 

Jour 

60: WAIT 20: INPUT "JOUR 

Mois 

1 

Année 

65: INPUT "MOIS ? "in 


70: INPUT v ANNEE ? w îA:A 


A=A 


75: WAIT 120: PRINT "BAT 


E = j ;j ; v v ;nî v 


v J AA 


80: IF Üÿ=''N g LET BT=A0- 


A: V=4î PRINT "EQUlNÛ 


XE BE : ">R0 


85: IF Qf="ü" LET V=û: 


PRInT v EûUlNûX£ de 1 


a date* 


90: IF M>=3 GOTO 100 


95: A=A-1 : rt=rt+12 


100: T0= INT (A*365. 25)+ 

T0= Nombre de siècles Julien écoulés 

INT (30.6001*01+1))+ 

depuis le 0 janvier 1 900 à 1 2 TU jusqu'à 

J-694023. 5- INT (A/l 

la date de l'observation à 0 TU. 

00)+ InT ( InT (A/10 


0)/4) 


105:T0=T0/36525 



TîT; InPUT v HÉUR£~ 7 iï 


(h. ms) ? ¥ » H 


1 15: us i ng *nn.ntr: 

PRINT "HEURE TUChns) 


Entrée de l'heure TU de l'observation en 
h.ms. 


= w ;h 

120! H- DEG H/24îHE=H 
125: T=T0+HE/36525 
130: IP FL«3 USING ! 

PRINT "Jr. JULIEN = v 
î T*36525+2415020 
135: TS=8. 27691938+100. 88 
21359*T0+8. 000801075 
*T0*T0:TS=TS- INT TS 
140! TG=2*ïï*TS-LQî TG=TG+2 
*JI><TG<0) ! T$=TG+6. 30 
038809*HE:TS=TS-2*ÏÏ* 
<T$>2*JD 

145: US I HG ’tm.mt’: 
PRINT "T. Sidéral (hms 
>="ï DMS <TS*12/Jt>: 

IF PEEK 26327=8 
PRINT "********** M 

MÉÈÈSê ëèÈIèÊÊ ÊÊêM^ 

155:"SÜL V :A=1 
160î£=. 01 6751 -.000042*7 
165: 11=6. 256584+T*628. 301 
946:0=11 

170:W=T*. 030005-1. 374956 
1 75 : J= . 40932-T* . 000227 
180:B= COS J: C= SIN J 
185:GÜSÜB 305 
186: IF AS$= W SÜLEIL V AND 
Fl=3 PRINT *Ray . vect 
. <UA) = V ÏR: PRINT "R 
av . ûpp. ( des )= v »959. 
63/3600/R 

190:X=R* COS L:Y=R* SIN 
L 

195:LS=LîE= 0 
196: IF AS*= M SÛL£IL W AND 
FL=3 PRINT w Lon? . (d 
es) = N 2*1*2* ( L/2/ 
Jl- INT (L/2/ÏÏ)) 

197! IF AS$= tf S0L£lL v 
GÛSUB 430 

PRINT 

200! IF SS$= V Û V REAB AS$: 
1F ASS= v FlN g GOTO 20 
2 

281! IF $Sf= v ü v GOTO 205 
202: SS$= w N g ! BEEP 2 î 

INPUT * ASTRE ? g ÎAS S 
! IF ASS= tf EQU v GOTO 
W EQU V 

205:PRINT v *** v i AS*? v ** : * 
IF PEEK 26327=3 
PRINT 

210: GOTO lEFT* (AS$*3) 
215: IF rtS*= v LUNE v GÜSüB 
430: GOTO *$' 

220: GÜSüB 305 
221 : IF FL=3 PRlNÎ Ray.v 
ect.(UA) = V >R 
222: GÜSüB 355: GOTO V S V 
225: BT=AA-1982: iF V=4 
LEÏ BT=A0-1982 
230: GÜSüB 520: GÜSüB 435 
: GÜSÜB g fT: GOTO g S 

235: tf EQü v : INPUT “Annee 
R£F ? *SAi:jDT=AA-Ai: 
IF V=4 LET BT=A0-A1 
240: INPUT v Noin ETOILE ? 
v î AS* 

245: INPuT v ASC.(nfi&s) ? g 
>G0îG0= BEG G0*l5/Z 
250: INPUT g BEC.(dMS) ? v 
;H0 îH 0= BEG H0/Z 
255: PRINT ' , *** v î AS$î "*** 
v : IF PEEK 26327=8 
PRINT 

260: GOTO 230 
ER. ■ 

305: N=M+E* SIN PI 

310: J=N-E* SÎN N: K=<M-J) 


En Menu 3, impression du N° du jour Julien 
correspondant à la date et à l'heure de 
l'observation. 

Calcul du temps sidéral local. 

TG=temps sidéral à 0 TU (exprimé en 
radians). 

TS= temps sidéral à l'heure de l'observa- 
tion (exprimé en radians). 


A =a =demi grand axe de l'orbite du soleil. 
E=e= excentricité de l'orbite du soleil. 
0=M 

W=cj = (L-M), L étant la longitude 
moyenne du soleil. 

J = e inclinaison de l'écliptique sur 
l'équateur. 

B = C 0 S 6 , eC=sine.e 


(X, Y) = coordonnées cartésiennes du soleil. 

LS = Longitude du soleil. 

E=b=0= Latitude écliptique du soleil. 


Entrée de l'Astre désiré. 

Frapper le nom de l'astre en toutes lettres 
majuscules. 

Exception : 

Pour l'étoile Polaire et pour Deneb il fau- 
dra tapper Polaire et Deneb. 

Ceci permet de les différencier de Pollux 
et Denebola, car seules les trois premières 
lettres permettent de reconnaître les étoi- 
les dans le catalogue en mémoire. 


Entrée des données dans le cas d'une étoile 
qui ne figure pas dans le catalogue en 
mémoire. 


Résolution deTeqûation de lepler par fa 

méthode Newton 

u=M+exsinu 



/(l-E* CÜS H) 
315iN=N+< 

320MF hüS 10.0081 GOTO 

3ld 




330:R=A-A*E* COS N 
535 i REM ARGUMENT LATITU 

340:L=W+2* ATN a<(l+E)/ 
<1 -£))* TA N <N/2)) 
345ÏRETURN 

~~mrzEir T^^ 

TIQUE 

355:H=L-Ü 

360:L= ATN ( COS I* SIN 
W/ COS U)+D+Jt*< COS 
I4<0):L=L+2*JI*<L<0) 
362: IF F l*1 OR Fl=2 GOTO 
370 

365:USInG ''UUUU.UIT: 

PRInT w LÜN hei loCdes 
)= V >L*2 

366: DL= ABS (L-LS-Jl): J=T 
A:J=T(1+J*J)*(J-1)/J 
:J* ABS ( ATN J) 

367: IF DL>J PRInT v S£NS 
Direct * 

368: IF DL< J PRInT v SEnS 
Rétrogradé* 

370: REM LATITUDE ECL i PT X 
QUE 

375: Es ASN ( SlN W* SIN 
I) 

380: REM COORD. CARTESIEN 

: 

385: A=R* SIN E 
390: I=R* CÛS £* CÜS L+X 
395: J=R* CÛS E* SIN l+Y 
400: REM LONG. GEOCENTRIQ 

405îL= ATN (J/i)+Jl*< i<0> 
410:REfl LAT. GEOCENTRIQü 

415: J=T( J*J+I*I+A*A) 

420: IF FL=3 PRInT w DIST. 
Geo(UA) = "i uSInG * 
mi.ltinrî J 
425: £= ASN (A/J) 

430: GÜS'UB 480 
435: GÔ=G: H0=ri: HR=TS-G0: G 
=G*Z/l5:H=rt*Z 
440:GOSUB 605 
445:IF Fl=1 OR Fl=5 
PRInT v ASC(hias) 

- w i G 
450:G=ri 
455:G0SUB 685 
460: IF FL=1 OR Fl= 3 
PRINT v DÊC<d<»s> 

= w \ G 

462ÜF FL=1 OR V=4 
RETURN 

465:G0SUB V L* 

470: RETURN 

480: G- ATN ((B* SIN L- 
TAN E*C)/ COS L)+Jt*( 
CÛS L<0) 

485:G=G+2*Jl*(G<0) :G0=G 
490:REM DECLINAISON 
495: H= ASN < SIN £*B+ 

CÜS E*C* SIN L):H0=H 
500: IF V=4 GOSUB 520 
505:HR=TS-6 

510ÜF AS$=*LUNE V LET G= 
G- COS LA*P0* SIN HR 
/ COS H:ri=H-P0*( SIN 
LA* CÛS ri- CÜS LA* 

SIN H* CÜS HR) 

515: RETURN 

520: G=G0+0. 0002234748*DT 
+0.0000971566* SIN G 
0* TAn H0*DT 


K- *^LÎL 


"nt1"V 

avec ug=M 




1 -e.cos u n 


L=ù)+v=cj + 2 Arctg +e xtg U J 
’1-e 2 

Pour le soleil L= longitude écliptique. 

Pour les planètes L= longitude dans le plan 

^teiSSS?SISï88SSSMIS 

Argument de latitude 

W=Htf+v)-Q 
Longitude hélioçentrique 
l H = Arctg ( CQS lxsin F )+o 

COS/i 


Détermination du sens du mouvement 
centrique des planètes. 


Coordonnées z=fy sin b^ 
Cartésiennes 

x=R h cos b H xcos1 H +X 

géocentriques 
y =Rj_j cos b^ x sin l^j+Y 

Longitude géocentrique 
1 q= A rctg (x/y)+ir x (y<0) 

Distance Terre-planète 
R G =Vx 2 +y 2 +z 2 

Latitude géocentrique 
bç = Arcsin (z/Rq) 


Ascension droite 

a 0 = Arctg ( cosexsin1 G -sinextgb G> 

COS 1 q 

ûq = « o + 1 x ( cos ^ G < ^' «o =a O +27rX (<*0^ 

Déclinaison 
Ôq = A rcsin 

(sin b^xcos c+cos bQXsin ex sin 1 q) 

Dans le cas de la Lune : correction de a 0 et 
de ôg de la parallaxe diurne de la Lune. 


525:H=H0+0.0000971566*DT 
* COS GO 
530:R£TüRN 


54.0: tf L v : HR=TS-G0 
545: P= CÛS HR* SIN LA- 
TAn H0* COS LA 
550: A2= ATN < SIN HR/p)+ 
JI*(P<0) 

555:IF AZ<0 l£T AZ=AZ+2* 
Jï 

560:Si= ASN ( SlN LA* 

SIN H0+ COS LA* CÜS 
HO* CÜS HR) 

565: IF SI). 017 LE T SI=SI 
+ .l540*<Jl/2-$I- ASN 
(.998115* COS si)) 
570: IF FL=2 OR Fl=5 
PRInT *Az i iftut (oints) 

= v î DMS (Z*AZ) 

575: IF FL-2 OR F L=3 
PRInT v Site(cms) 

* ÜMS (Z*Sl ) 





605: G= DMS G:G=G*10080 


610: J=G- InT G 


615: IF J>. 49999 lEÏ G=G+ 


1 


620: us ing v 3unr.am , ':G= 


INT G/ 10000 


Tcirëctïonle procession deTéquinoxéT” 
DT = (Année de Réf. - Année pour laquelle 
on connaît «q et ô 0 ) 


05:"LUri v :D=6.i2l524+T 

*7771.377194 

lô: N=5. 168+T*S328. 691 
104 

15: F=. 196365+1*8433.4 
6629 

20: L=4. 719967+ r*8399. 
709144 

25:L=L+. 109759* SIN N 

50: L=L+. 022236* SlN < 
D+D-N) 

55:l=L+. 01149* SIN (D 
+Û) 

10: L=L+. 00372b* SiN ( 
N+N) 

i5:l=L-. 00323** SIN 0 

)0:L=L-. 001996* SIN < 
F+F) 

Î5:L=L+. 00102b* SIN < 
D+D-N-N) 

;0:L=L+. 000999* SIN < 
D+D-Û-N) 

15: L=L+. 000931* SIN < 
D+D+N) 

’0:L=L+. 000801* SIN < 
D+D-O) 

’5:L=L+. 000716* SIN < 
N-Q) 

!0:L=L-. 000606* SIN D 

i5:L=L-. 000532* SIN < 
Û+N) 

0:l=L+. 000267* SIN < 
D+D-F-F) 

5:L=L-. 000219* SIN ( 
F+F+N) 

0:L=L-. 000192* SIN ( 
F+F-N) 

2: IF Fl = 3 PRiNT v Lon 
s (des) = v î2*Z* 
H*(L/2/il- iNf (l/2 
/JO) 

5:“P .189'51 4 F*sTn T " 

0:E=E+. 804897* SIN ( 
N+F) 

5:£=E+. 004847* SiN ( 
N-F) 

i:E=£+. 003024* SIN ( 
D+D-F) 


a=a 0 +0 o ,0128xDT+0°, 005567 
xDTxsin a 0 xtgô 0 

ô=Ôq+0°,005567xDT xcos «q 


Calcul de l'angle horaire, 
de l'Azimut et du Site. 

AH=TS-a 

AZ = Arctg ( AH 

COS AH x sin p-tg Ôxcos ^ 

h = Arcsin 

(sin pxsin ô+cos ^xcos ôxcos AH) 

Correction de 
réfraction 

Ah = 0, 1 540 x (90° - h - Arcsin 
(0,99811 5 xcosh) 
correction valable pour tout h> 1 0 
(correction extraite du Nautical Almanach) 


Module d'affichage des résultats avec 
arrondi à 4 décimales. 


Calcul de la longitude géocentrique de la 
lune 


Equation du centre 
Evection 

Variation 

Equation du centre 

Equation annuelle 
Réduction à l'équateur 


inégalité parallactique 


Calcul de la fatitude 
Lune 

Terme principal 
Equation du centre 

Grande inégalité 


1 125! £=E+. 000967* SIN ( 
B+B+F-N) 

1130: E=E+. 000808* SIN < 
B+B-F-N) 

1 135: E=E+. 000569* SIN ( 
B+B+F) 

1 140: £=£+. 0003* SiN (N+ 
N+F> 

Z 1 4 2 î X r FL=3 PRiNT v Lat 

1 145: P0=. 0165*3264+. 000* 
904395* CÜS N 
1150: PÛ=P0+. 000166347+ 
CÜS <B+B-N;+. 00013 
668b* CÜS (B+B) 

1 1 5 1 : 1 F FL=3 PkînT "Par 
al iaze = v iP0*Z 
: PRINT w Ray.app.( 
de3)= v j.272476*P0 
*2 

1152: IF Fl=S USînG w m 
#m w : PRInT V B i st 
. LUN£(kin) = v î6378. 

1155: PH=2*(L-2*JI* INT ( 
L/2/JO-LS>:Ph=PH+3 
60+<PH<0) : PH=PH-36 
0*(PH>360> 

1160: USING : PRiNT ‘Pha 
setde*> = 

InT <PH+.5>; 

1165: IF PH>354 ÜR PH<6 
PRINT v nl v : GOTO 
1190 

1170: IF Pri >84 AnB PH<96 
PRInT * Pü": GOTO 
1190 

1175: IF Prt>l74 ANB PH<1 
86 PRiNT v Pl m : 

GüTû 1190 

1 180s IF Ph >264 ANB Ph<2 
76 PRINT BQ V : 

GOTO 11*0 
1185: PRINT v **• 

1190: GOTO 215 
1200: REM MERCURE 
1205: tf MER v :A=. 387099 
1210: E=.205614+T*. 00000 
2 

1215: I=.122223+T*. 00003 

"2 ■ ■ ■ 

1220: pi=i . 7851 12+T+2608. 
787533 

1225: W=1.3247+T*. 027148 
1230: B=. 822852+7*. 02068 
6 

1235: GÜTÜ 220 
1 500 : REM VENU 
1305: v V£n v :h=. 723332 
1310: £=.006821 -T*. 00004 
8 

1 3 1 5 : I=. Ô5923+T*. 000018 
1320: M=3. 7lÛ626+T*102l . 
328349 

1325: W=2. 271 737+T+. 0245 
75 

1330: B=1 . 322604+T*. 0157 

05 

1335: GÛTu 220 

1405: v MAR* :A=1. 523688 
1410: £=.093313+7*. 00009 

2 

1415: i = . Ü32294- f*. 00001 
2 

1420: M=5. 57b66l+T*334. 0 
55484 

1425: W=.032l27*T-. 44997 
7 

1430: B=. 851484+ l*. 01345 

6 

1435: GÛTÙ 220. 


Evection 

Variation 

Equation du centre 

Calcul de la parallaxe de la Lune 

“Equation du centre — 

Evection + variation 


1440: K=2. 349761+T*. 71 13 
49: RETURN 


K = argument des perturbations à longue 
période (883 ans) de Jupiter et Saturne 


"TouTchacune TSTpEiStis et pour la 
comète de Halley : 

A=a=demi grand axe de l'orbite 

E=e=excentricité de l'orbite 

l=i inclinaison de l'orbite sur l'écliptique 

M= anomalie moyenne 

W=«.= (L-M) = Longitude du périhélie 

D=fi = Longitude du nœud ascendant 


1500: REM JUPITER 
1505: w JUP V : GûSüB 1440 
1510: A=5. 202561 -.000026 
* CÜS K 

1515: E=.048335+ï*. 00016 
4+. 000561* SIN K+. 
000129* CÜS K 
1520: I = . 022842-T*. 00009 
9 

1525: M=3. 932721 +T+52. 96 
5368+. 007442* CÜS 
K+. 003176* SIN K 
1530: 14=. 222022+ï*. 02809 
9-. 007386* CÜS K+. 
802607* SIN K 
1535:B=1. 7356 15+T*. 0176 
37 

1540:GÜTÛ 220 


Calcul de la phase de la Lune 

PH = (Longitude lune - longitude soleil) 
La phase est exprimée en degrés de 0° à 
360° 


Si PH >354° ou PH <6° on affiche NL 
Si PH = 90° ±6° on affiche PQ 
Si PH = 180° ±6° on affiche PL 
Si PH = 270° ±6° on affiche DQ 


1605: V SAT*: GüSuB 1440 
1610: A=9. 554747+. 000057 
* SIN K+. 080293* 
CÜS K 

1615: E=.055892-r*. 00034 
6-, 000793* SIN K+. 
001338* CÜS K 
1620: I=.043503-T*. 00006 
8 

1625: M=3. 062463+T*2l . 32 
0095-. 0383* SIN K- 
.014478* CÜS K 
1630: W=1.589963+T*. 0341 
81+. 024079* SIN K+ 
.014295* CÜS K 
1635: B=1.968564+T*. 0152 
4 

1640: GüTû 220 


1645: <=4.958028+7*. 1485 
33: RETURN 


K = argument des perturbations à longue 
période (4229 ans) d'Uranus et Neptune 


1700: REM uRANuS 
1705: *URA*: GÜSüB 1645 
1710: A=19. 21814-. 003824 
* CÜS K 

1715: £=.046344-1*. 00002 
7-. 000335* SIN K+. 
0021* CÜS K 

1720: i=.0l3482+T*. 0Û001 
1 

1725: M=1 . 26796+7* 7. 4766 
26-. 030225* SIN K- 
.005875* CÜS K 
1 730: w=2. 99409+T*. 02590 
8+. 045305+ SiN <+. 
007306* CÜS K 
1 735: B=1 . 2824 18+T*. 0087 
03 

1740: GÜTÛ 228 
1300: REM NEPTunl 
1805: V NEP V : GÜSuB 1645 
1810: A=30. 10957+. 01058* 
CÜS K 

1815: E=. 008997+ T*. 00000 
6+. 00044* SiN K+.ü 
00426* CÜS < 

1820: I=. 031054-1*. Ü0016 

7 

1825: M=.658524+T*3. 8128 
7-. 056901* SIN K+. 
047519* CÜS K 
1830: W=. 815546+T*. 02486 
3+.046558+ SIN K-. 
048498* CÜS K 
1835: B=2.28082l+T*. 0191 

8 

1840:GÛTü 220 

1905: v PLU*:a=39. 43871 
1910:E=. 250236 
1915: I=. 299681 
1920: M=4. 000635+T*2. 536 



813 

l925:w=3. 909712 
1930: D=1 - 915324 
1935: GOTO 220 

mm mËÊËÊÊm mmmm: 

9 HAL 9 :TJ=T-31227.5 
/36525 

:A=17.9425-.0185*TJ 
:E=. 96727: I=<-17.7 
6+.033*TJ)/Z 
:H=<-.0129682*(T*36 
525-31450.955)+!. 1 
62815*TJ) / 2 

I960: «=(306. 30354+. 2337 
03*TJ)/2 

1965: B=<58. 14237+. 39358 
8*TJ)/2 
1970: GOTO 228 


ÜMÜ 

1945: 

1950: 


1955: 


Fichier d'Etoiles 

G 0 =a 0 =ASC. Droite en radians 
Hq = ^ 0 = Déclinaison en radians 


Etoiles 


:n0=. 50599034: 

GOTO 225 

2005: 9 ACH 9 : G0=. 42346050 
:H0=-1. 00055847: 

GOTO 225 

2010: 9 Poi 9 :G0=. 58293997 
:H8=1. 55653310: 

GOTO 225 

2015: 9 àlG 9 :G0=. 81594142 
:H0=. 71361664: 

GOTO 225 

2020: 9 nIR 9 : G0=. 88590003 
:h0=. 86914487: 

GOTO 225 

2025 : 9 AlB 9 : G0= 1 . 1 994048 
0:riW=. 28752844: 

GOTO 225 

2030: v R I G v : G0=1 . 3686298 
2îH8=-. 14349515: 
GOTO 225 

2035: "Ch£ 9 :G0=1. 3759739 
4: Hü=. 88252178: 

GOTO 225 

2040: 9 BEL v : G0=1 . 4144439 
i:H8=. 11055691: 

GOTO 225 

2045: "NAT 9 : 60=1.4187345 
1 :hü=. 49984781: 

GOTO 225 

2050: V ££T 9 :68=1. 5151898 
5: H0=. 12923678: 

GOTO 225 

2055: V SIR V :G0=1. 7643897 
0:H0=-. 29130999: 
GÙTO 225 

2060: 9 CAS 9 : G0=1 . 9785488 
7:H0=. 55726423: 

GOTO 225 

2065: 9 PRÛ V : 00=2.0000018 
J:H8=. 09201278: 

GÙTO 225 

2070: 9 PûL v : 60=2.0255273 
1 :H0=. 48992361: 

GOTO 225 

2075: V R£G 9 : 60=2.6503551 
9:H0=. 21040943: 
GOTO 225 

2080: 9 mER 9 :G0=2. 8831384 
8:H0=. 98574741: 
GOTO 225 

2085: 9 BUB 9 : G0=2. 8912833 
5:H8=1. 07945705: 
GOTO 225 

2090: V BEN 9 :G0=3. 8898145 
5 : H0=. 25608828: 
GOTO 225 

2095: 9 ALI 9 : 68=3.3738668 
8:H0=. 97838309: 
GOTO 225 

2100: 9 MI 2 9 : 60=3. 004621 1 
3: H0=. 89045244: 
GOTO 225 

2105: 9 £PI 9 :G0=3. 5092026 
2:H0=-. 19316916: 


Andromède 

Achernar 

Polaire 

Algol 

Mirfak 

Aldébaran 

Rigel 

Chèvre (la) 

Bellatrix 

Nath (el) 

Betelgeuse 

Sirius 

Castor 


Constellation 


Andromède 
Petite Ourse 

Petite Ourse 

Persée 

Persée 

Taureau 

Orion 

Cocher 

Orion 

Taureau 

Orion 

Grand Chien 
Gémeaux 


2110: 

2115: 

2120: 

2125: 

2130 

2135 

2140 

2145 


GOTO 225 

9 ARC 9 :G0=3. 7299140 

Arcturus 

Bouvier 

5:H0=. 33642190: 
GOTO 225 

9 KIf 9 : 60=3.9969494 

Kiffa boréale 

Balance 

3 :H0=-. 16261620: 
GOTO 225 

9 ACR 9 :G0=4. 2079161 

Acrab 

Scorpion 

0:H0=-. 34482373: 
GOTO 225 

:"ANT 9 :G0=4. 3122722 

Antarès 

Scorpion 

4:H0=-. 46064571: 
GOTO 225 

! "VEG v :G0=4. 8709230 

Vega 

Lyre 

5:H0=. 67660112: 
GOTO 225 

: "ALT 9 :G0=5. 1919181 

Altaïr 

Aigle 

9: H0=. 15393804: 
GOTO 225 

: 9 Ben 9 :G0=5. 4140840 

Deneb 

Cygne 

6:h0=. 78916031: 
GOTO 225 

: "FGfl 9 : G0=6. 0067687 

Fomalhaut 

Poisson austral 


8 : H0=-. 51867791 : 
GOTO 225 


2200 


2205 


2300 

2310 

2320 

2330 


9 M 9 : PA=G0-TG:PA=PA 
+2*ît*(RA<0;:PA=3.8 
09289274 *Pa:PA=PA+ 
24*<Ph<0) 

PA= BnS PA: PRINT 
9 Pas. neriü. = 9 JP 
à: REfURN 

îBaTA 9 SÛLEiL 9 > 9 LUN 
E 9 » v fl£RCURE 9 
: BATA 9 VENUS 9 > "MARS 

v j 9 Jupiter 9 

î BATA 9 SATURNt v » 9 UR 
ANUS 9 » "NEPTUNE 9 » 9 P 
luTÜN" 

: BATA v f IN 9 


Procyon 

Petit Chien 

Pollux 

1 Gémeaux 

Regulus 

j Lion 

Merak 

1 Grande Ourse 

Dubhé 

Grande Ourse 

Denébola 

Lion 

Alioth 

j Grande Ourse 

■ 

Mizar 

1 

1 Grande Ourse 

s 

Epi (!') 

1 

i Vierge 


Calcul de l'heure TU du passage au méri- 
dien du lieu d'observation. Sous- 
programme utilisé uniquement dans le cas 
où l'astre demandé est une étoile. 


DATA utilisées dans le cas où l'on 
demande l'éphéméride de tout système 
solaire (Soleil, Lune et Planètes). 



RESULTAT OBTENUS SUIVANT LE MENU CHOISI 



Long. Héliocentrique en degrés décimaux 

Long. Géocentrique en degrés décimaux 

Lat. Géocentrique en degrés décimaux 

•< 

n> 

c= 

03 

È> 

03 

O 

2 

<= 

O 

> 

«a 

OC 

Distance Géoc. en UA 

Rayon apparent en degrés décimaux 

Phase en degrés 

Parallaxe en degrés 

Ascension droite en hms 

Déclinaison en dms 

Azimuts en dms 

Site en dms 

Sens du mouvement géocentrique 

Heure passage méridien en hms 

SOLEIL 


3 


3 


3 



1-3 

1-3 

2-3 

2-3 



LUNE 


3 

3 


3 

3 

1-2 

3 

1-3 

1-3 

2-3 

CO 

1 

CM 








km 


-3 








PLANETES 

3 



3 

3 




1-3 

1-3 

2-3 

2-3 

3 


et HALLEY 















ETOILES 









1-3 

1-3 

CO 

1 

CM 

2-3 


1-2 















-3 


Remarque : Si au pas 5 on choisit de rappor- 
ter les résultats à une équinoxe autre que celle 
de la date de l'observation, l'Azimut et le Site 
ne seront pas affichés. 


EXEMPLE : 


LIEU D OBSERVATION : 

***LUNE*** 


***JUPITER*** 


Lat i tude(dms) = 

48.5811 





Lons i tude(dms)= 

-2. 2814 

Lons (dey) = 

116.1492 

Rav.vect. <UA) * 

5.1196 

MENU DES RESULTATS : 

Lat (des) = 

4.7739 

LON hel io(de?) !S 

301.11 

1 = Coord. Eauator i a i es 

Parallaxe = 

0.9620 

SENS Direct 


2 = Coord. Horizontales 

Rav.app. <de9)= 

0.2621 

DIST Geo(UA) = 

5.554 

3 = Tous les résultats 

D i st . LUNE<km)= 

379861 

ASC(hms) * 

20.5328 

Choix du Menu s 

3. 

Phase(des) = 

106. ** 

DEC(dms) = 

-17.5621 

********** 


ASC(hms) = 

7.5355 

Azimut(dms) = 

257.0144 

BATE = 31. /3 

./1985. 

DEC<d«ns> = 

25.0230 

Site(dms) = 

-34.4623 

EQUINOXE de. la date 

Azimut (dms) = 

94.3732 



HEURE TU (h ms) = 

0.0000 

Site (dms ) = 

30.0636 

***SATURNE*** 


Jr. JULIEN = 2446 

155.5 





T. S i dera i (hms)= 

12.4236 

***MERGURE*** 


Ray .oect. (IJA) = 

9.9460 

********** 




LON hel io(des )= 

233.43 



Ray . vect . (U A) = 

0.3334 

SENS Retrosrade 


***$ÜLEIL*** 


LOn rie 1 i o(des ) = 

180.22 

DIST 6eo(UA) = 

9.243 



SENS Retrosrade 


ASC(hms) 

15.4351 

Rav.vect. (UA) = 

8.9990 

BIST Geo(UA) s 

0.622 

DEC(dms) * 

-17.2252 

Ray . a pp. (dey > = 

0.2668 

ASC (h ms) = 

0.5532 

Azimut (dms) = 

315.5321 

Lons. (aes) = 

10. 2318 

DEC (dms) = 

9.2741 

Site(dms) = 

12.3555 

ASC (h ms) = 

0.3737 

Azimut (dms) = 

176. 1510 



BEC (dms) = 

4.0388 

Site(dms) = 

-31.3757 



Azimut (dms) = 

131.3339 





Site(dms) = 

-37 . 060 1 









SOUND MACHINE 


*»' toiMW son 
JT. 1 ™*l«» P«mel qvetatt 
Wies musKoles, est publié met 

«Sj™ U l 3p ' ès “' 0lie P' ê »to 

leïï U D^ i r? <f,ieS,p " lposé ' 0nls "“ 

par la nidJsK *!" !0,t * P fo fl ramme 1 
i T0ucne bPC ' du Programme 4 par BRK 
Les programmes 2, 3 et 5 reviennent d'eux- 
memes au menu général. 


■5 


±U : Li-tAR 5 X=25000 : y=>; + 2 

•" Z=X+i i : poke x,2à’J 

5 ? 52 ? 18» 95 > 89» 101 , 16 

*219,223,78,1,47,5,5 

20: WAIT 0: prjnt » 

SOUND — MACHINE 

40 : Q=96 : W= 1 1 2 : £=63 ; p =2 : 

T= 12: FOR 1=0 TO 11: 

PUKE 8256+1*5, Q, H, £, 

P0KE 10359-1*5, 
e . ; ,K ’t*W»Q: N EXT I 
^0->UR 1 = 1 TO 300: NEXT 

605INPUT M Pr osramme 1/9 

en' 40 u?0: 507 0 0*1 

100 *ïîil ! «LL X* POKE 
OiJi»64: PRINT ** 
i 05 Ï 11 A 1 ' PH/F -, ' i n ~ 

J POKE 

.*151: GUTO 100 

V POKE Z, 184: POKE 
ï* ISS! GOTO 108 
USl-S- POKE Z.1T2: p 0KE 

iîo.^x-* 5 ^ 0 ! 0 .?? 9 

u \,; ÜK t ^’lbl: POKE 
b0T ° i80 

U5.-D-_PUKE Z, 151: pq KE 

GOTO 100 
ÜB! ”C* p OKF ", 

« _ ^1*1: POKE 

; » 1 fl: GOTO 100 

i *.5ï *' V w P}liy‘r -? 

u t~ JKE £ - ,li2: POKE 
uli5: büTQ 100 


145: 


150 


400 : 


!** de noire 

s&'ftRiia" 

•^tSWas 

tet*m U sw)dansmp,op reS TO®r ,e 

* FISCHEL 

Kaiser-Friedrich-Strabe 5 + A 
D 1000 Berlin 12 


i 37 : ; F :,P0KE Z, 123: PQKE 
1 * i f r : GOTO 100 

149: : g :^ poke 

GOTO 100 

p°KE Z, us; P0(fE 
olo'i: GOTO 100 
^H-POKE Z, 107:' POf? - E 
ï-’ÎSr: GOTO 100 
!¥N¥ POKE Z,99:'P0KP 
r-^l: GOTO 100 ' ' - 
,', J¥ POKE Z, 91: poke 
.^195: GOTO 100 

“u M n 0 ! UKE Z,84! POKE 
i»x 0 i: GOTO 100 

! ' K * POKE Z, 77: Pn KE 
t* » 2 1 1 ï GOTO 100 
POKE Z, 70: poke 
î.zly: GOTO 100 

■ - pure z»63: poke 
r »225: GOTO 100 
GOTO 60 

|-Pûhf 0: PRINT " DE MO- 
GRh v E- /A I GU 255 - 1 * ■ 

POKE Z, 88 : FOR " 1=255 

T 0 ljSTEp - 4 . poK^y 

’ I: OALL X: NEXT I: 

WAIT 

WAIT 0 : p RINT ... DEMn _ 
AlGLi->GRAVE 1 - 955 ;. 

Pure y, 255 : for j-, 

JO 255 STEP 4: PQKE 

ni rr tHLL Xi NEXT 1 : 

Wh^T : GOTO 60 

WAIT 50: PRINT l, 0H ■' 

A BELLE MELODIE u*" 


155 

160 : 

165 : 

167 : 

168 

169 : 

170 : 

200: 


300 : 


410:random :p= RND 255 . n 

= RND 255: P= Int p' 
2 M 2+1 

420: PQKE Y, P: pqkf 7 , n . 

CALL X “ “• J ' 

430: GOTO 410 

580: hf I ^--t PRIHT v wusiq 

c,TRu M '’ : for 

x-0 iu 11: Pokf 

, to +1*3,24, 56, 62, 6 2 :S 

jl0: p uKE 10359-1*5, 52,62 
*62,56,24: NEvr r J *' 
j50:FOR R=i to 3 .'" 
RESTORE 

560: FOR . 1=1 TO 27: READ 
A * B: PQKE Z, A: pore 
r, * ! CALL .Y: N£ y T r. 
.... NE * 7 K: GOTO 60 ** 

bW!D ?!f 184» 115,161, 123 
, , ;« , 1 1 !i , 152 î i35,u5 

9 Il 5 J 

.... -■ 9 1 - 1 9 y y ? 1 5 1 ? 1 1 5 , 

0: 9 ?’ 151 . 99 , l' 5 î;i 

' ! iJA *yy» 151, 1 15, 955 

-50: data 132 , 155 , 132,135 
*132,135,132,135,141 

*249,141,249 

640: DATA 161,127,161,127 

*4bl,l2r,l6î,i27, 18 4 
1000: ;>'C) UWE sr.wnm, 

20W0: ''et FI8CHEL V ' 


Tune 

IPÜB 

DANS LE 



RELOGEUR IM 


1. SA FONCTION : 

Réinitialiser toutes les adresses des instructions 
LIDP, JP, CALL, IF GTO d'un programme LM qui 
a été transféré à une adresse différente de celle 
où il a été écrit. Ces adresses ne seront relogea- 
bles qu à la condition d'être incluses dans le bloc 
d octets considéré. En effet, il s'exécute avec 
la syntaxe suivante : CALL &C100, 1 début 
en MEV, 2 fin en MEV, 3 ancienne adresse 
de début. 

Attention : 

Ce programme ne reloge pas les tables ! Si le 
cas se présente, il se plantera comme un pro- 
gramme de désassemblage classique. 

Vous pouvez constater que l'on passe des para- 
mètres derrière le CALL. Le premier paramètre 
correspond à I adresse où se trouve le pro- 
gramme en mémoire de manière effective 
(adresse où I on veut le reloger). Le second para- 
mètre correspond à la dernière adresse du pro- 
gramme en mémoire. 

Alors que le troisième paramètre est l'ancienne 
adresse où il a été écrit. 

Exemple : 

Vous avez un programme qui commence en 


&BA00 et se termine en &BA1 0. On veut le met- 
tre en &BB20, Il faut tout d'abord tranférer ce 
programme en mémoire à l'adresse &BB20 (par 
la cassette par exemple) sans le modifier. 
Ensuite, on tape : 

CALL &C100, &BB20, &BB30, &BA00 ENTER 

2- SON PRINCIPE: 

Désassembler de façon très simple un pro- 
gramme et juste extraire tous les codes à deux 
opérandes et plus. 

Pour les OP codes sans opérande ou avec un 
seul, le programme s'occupe de ('instruction 
suivante. 

3- COMMENT : 

Une table de 18 octets indique tous les chan- 
gements du nombre d'opérande. En effet on 
remarque des suites alternées d'OP code avec 
et sans opérande. Les « accidents » à deux opé- 
randes et plus étant testés directement 

Exemple : 

LII n à LIB n 1 opérande 
IX à SBW pas d'opérande 
LIDP n,m testé 
LDIL n à LIQ n 1 opérande 
ADB à DYS pas d'opérande 
etc. 

Les 1 9 octets représentent les OP code de tou- 
tes les fins de série avec ou sans opérandes. 
Pour être peformant (reloge 8 Ko en 6s !), la 
table qui sera lue intégralement ou en partie et 


comparée à chaque OP code est transférée dans 
la pile au début du programme relogeur à partir 
du registre &29. Deux tests de comparaisons 
sont alors effectués après le chargement de 
I Accu, par un IXL pointant la première adresse 
du bloc d'octet à reloger. 

a) A = Reg &29 (1 ere DATE égale &03) 

Si oui, I OPc se trouve dans la première 
série ayant un seul opérande. 

Si non, INCP et on boucle 19 fois au 
maximum. 

b) Test si P est pair ou impair : 
pair : pas d'opérande 
impair : un opérande 

Si c'est LIDP n,m 3 e DATA donc Reg &2B 
Si CALL n,m ou JP ect. 15 e DATA donc 
Reg &37 

Il suffit donc de tester Reg &2B et Reg &37 pour 
sortir les OPc à 2 arguments. 

Un décompteur 1 6 bits K,L est chargé en début 
de programme avec le nombre d'octets à explo- 
rer (®2-®1) et est décrémenté à chaque IXL. 
Donc dès qu il est égal à 0, le programme est 
relogé, et exécute donc l'instruction RTN qui per- 
met un retour sous BASIC. 

Il ne vous reste plus qu'à essayer votre pro- 
gramme dans sa nouvelle version et constater 
qu il tourne aussi bien que l'original. 

(c) 1985 J. -F. Lente 



Gestion du CALL avec passage de 
paramètres 


1 er argument : - Reg &20 
2 e argument : « ReJ&2Ô” 


C127 F7 


CAL 92E9 
CAL 1737 


3 e argument : ~ Reg &20~ 


n vq 




rt 

i -r 

C12A 

13 

Lia 28 

C 1 2 C 

0H 

MVB 

C12B 

Ez 

UAL 020F 

L* 1 2F 

F 7 

! -hl i 737 

L- î *: I 

84 

LP04 

Ci 32 

13 

LIQ 28 

Cl 34 

QA 

il y B 

f;i 

1 z. 





Cl 37 

A0 

LP 28 

L- 1 3 S 

E2 

CAL 8202 

C13A 

F7 

UAL i 737 

L- I iU 

4 "T 

i 

LIQ 28 

C13E 

BC 

LP3C 

C i 3F 

0H 

MVB 

Ci48 

13 

LIQ 28 

Ci 42 

BE 

Lr 3E 

Ci 43 

8A 

MVB 

Ci 44 

88 

LP08 

Ci 45 

13 

LIQ 0C 

Ci47 i 

0H 

MVB 

Ci 48 

13 

l i Q y y 


@1-@3 - MAI 
1" argument » Binaire 


1 er argument - X 
» K,L 

Restore 3 e argument 
BCD « Binaire 


3 e argument - Reg &3C 
3 e argument » Reg &3E 



m.n - A, B H et L 


C14B 0A 

MVB 


C14C BE 

LP3E 


C14B 14 

ABB 


C14E 48 

INCK 


Cl 4F 2 A 

JRNCP 02 (C152) 

Cl 51 C8 

INCL 


Cl 52 05 

BX 


Cl 53 78 

CALL 

Cl 59 

Cl 56 Fl 

CAL 11B2 

Cl 58 37 

RTN 


Cl 59 C8 

INCL 


C15A 10 

LI BP 

C224 

C15B A3 

LF'28 


C15E 80 

LU 

13 

Cl 68 18 

M'v'WB 


Cl 61 20 

JR P 

17 (Cl 79) 

0163 04 

IX 


Cl 64 49 

BECK 


Cl 65 28 

JRNZP 

04 (C16A) 

C167 C9 

DECL 


Cl 68 2C 

JRP 

0F (Cl 78) 

C16A 04 

IX 


C16B 49 

BECK 



L16L 28 JRNZP 84 (0171 > 
C16E 09 DECL 


Olbi- 38 JRZP 88 (Cl 7fi y 
0171 5B POP 
01 >4 49 B E L- K 


Cl?* 

28 

JRNZ 

85 

(Cl 79) 

Cl 75 

C9 

DECL 


C 1 7 6 

28 

JRNZP 02 

(Cl 79) 

Cl 78 

37 

RTN 



Cl 79 

24 

ixl 



C 1 7 A 

AS 

LP 2 8 



C17B 

50 

INCP 



C17C 

C7 

CP MA 



C17B 

3B 

JR CM 

03 

(C17B) 

L 1 7 F 

34 

PUSH 



Cl 88 

28 

LBP 



L 1 8 1 

67 

CP IA 

2B 

LIDP 

L 1 o b 

38 

JRZP 

16 - 

(C19A) 

Cl 85 

67 

CP IA 

77 

Cl 87 

38 

JRZP 

«** i 

12 ( 

m,n 

C 1 9 A ) 

L1 89 

67 

CPI A 

T'"» 



C 18 B 

2A 

JRNCP 

06 

: Cl 92 

C18B 

67 

CP IA 

-i »-■ 

i_. 


Cl 8F 

3A 

JRCP 

82 * 

C 1 92 

C 1 91 

42 

INCA 



Ci 92 

64 

AN IA 

01 


Cl 94 

67 

CP IA 

80 


Cl 96 

39 

JRZM 

26 ( 

Cl 71 ) 

Cl 98 

2 B 

JRH 

2F ( 

C 1 6 A ) 

C19A 

5B 

POP 



C19B 

67 

CP IA 

7 A 


C19B 

28 

JRNZP 

06 (i 

Cl A4) 

Cl 9F 

78 

CALL 

C1E5 


C1A2 

2C 

JRP 

04 (( 

C 1 A 7 ) 

Cl A4 

78 

CALL 

Cl AA 


C1A7 

34 

PUSH 




Cl AE IA 

MVB B 

Cl AF BF 

LP3F 

L 1 B 0 C 7 

CP MA 

C1B1 3A 

JRCP 

01B3 23 

JRNZP 

C1B5 51 

DECP 

L 1 B 6 B A 

EXAB 

C1B7 C7 

CPMA 

C1B8 3 A 

JRCP 

C1BA BA 

EXAB 

ClBB BB 

LP3B 

CISC C7 

CPMA 

ClBB 3A 

JRCP 

C1BF 28 

JRNZP 

CICI 51 

DECP 

C1C2 BA 

EXAB 

C1C3 C7 

CPMA 

C 1 C 4 38 

JRZP 

C1C6 2 A 

JRHCP 


0108 B A 

0109 B A 
Cl CA F 8 
CICC 13 
Cl CE 82 
Cl CF 8A 
C1B8 91 
C 1 B 1 62 
C1B3 84 


EXAB 

EXAB 

CAL 1894 
LIQ 8A 

j_ r 1 PI V 

MVB 

LP1I 

T SIM 01 
LP 04 


-• î L 2 J 


C1B4 38 

JRZF 

04 

Clijfc 14 

ABB 


C1B7 2C 

JRP 

02 

C1B9 15 

S B B 


G1BA F 8 

CAL 

1894 

CISC B A 

EXAB 


ClBB Fl 

CAL 

1172 

C1BF 04 

1 F -1 : 


C1E0 82 

LPS 2 


C1E1 IB 

EXBB 


P 1 ET •' u 




L-HL 

i l‘ 2 

C1E4 

RTN 


C1E5 F 2 

CAL 1 

208 

C1E7 04 

7 

i i'\ 


C1E8 04 

1 ;***■ 


L 1 E 9 0 4 

T V 


LlEA 24 

IXL 


C1EB 67 

CP IA 

b 9 

Cl ED F8 

CAL 1; 

399 

Cl EF 38 

JRZP 

0C ( 

Cl Fl 04 

I X 


C1F2 82 

LIA 

01 

Cl F 4 83 

L I B 

00 

C1F6 88 

LP08 


C1F7 15 

SB B 


C1F8 78 

CALL 

Cl AA 

C1FB 37 

RTN 


C1FC 24 

IXL 


L1FB 34 

PUSH 


C1FE B A 

EXAB 



LlFf- 02 


-i A 


Suite sans reloge A > R&3F 
2 e test A < R&3F 


Suite sans reloge A > R&3E 


OK reloge A > R&3D 
Suite sans reloge A < R&3F 


Suite sans reloge A < R&3C 
OK reloge A ^ R&3C 


Nombre de IF GTO 



Ce jeu est bien connu et consiste 
à trouver la sortie du labyrinthe 
dans lequel vous êtes projeté, 
en un minimum de temps. 

Pour corser ce jeu, il faudra 
aussi découvrir la Clé qui vous 
permettra d'ouvrir la perte obs- 
truant la sortie. 


Après avoir tapé et vérifié le programme Basic, 
lancez le par RUN. Quelques secondes s'écou- 
leront avant qu'apparaisse la première vue du 
labyrinthe. Elle se dessine en perspective, bien 
sûr. 

Pour une meilleure compréhension vous avez 
un schéma explicatif ci-dessous . 


A B C F E D 

l<H|| 

G 



Sur cette vue du labyrinthe ,1a première 
salle n'a qu'une ouverture visible (le mur A à 
votre gauche, le D à votre droite) ; c'est la salle 
où vous vous trouvez. La seconde salle à trois 
ouvertures : une à gauche, une qui donne sur 
la première salle et la troisième sur la dernière 
salle. Enfin, la troisième et dernière salle n'a 
qu'un passage donnant sur la seconde salle 
(vous verrez au maximum trois salles). 

Le déplacement : 

la touche 8 permet d'avancer 

la touche 4 permet de pivoter à gauche 

la touche 6 permet de pivoter à droite 

la touche 2 permet d'effectuer un 

demi-tour 

Vous voilà maintenant prêt à vous perdre tel 
Icare, dans les dédales . 


V. Perez 
























1 : CLEAfi ; RANDOM : Y=RND 
10:Z=RND 10: C=RND 3: 
U=RND 10: V=RND 10 
1 0 : B IM B<31>:FQR 1=1 TO 
22:READ B(I>:NEXT I 
ll:DATA 1.111111111*1.1 
0011111*1.10110111*8 
.11000101 

12: DATA 0.01100101*0.11 
00101*0.011101* 0.000 
0111*0. 101010001*0. 1 
11111011 . 

13: DATA 1 . 1 1 1 î 1 1 1 1 * 1 . 1 1 
1111111 * 0 . 00111111*0 
. 000001 * 1 . 0000001 * 0 . 
00111101 * 0.011101 
14:BATA 0.0100101*0.010 
10001 * 0 . 0000111 * 0.11 
0111 * 1.111111111 
20: IF C=1 GOTO 32 
21: IF C=2 .GOTO 41 
22: IF C=3 GOTO 50 
23: P=Z: Q=Y-2: GOSUB 1000 
: B(23)=T: IF T GOTO 3 
0 

24: P=Z-1 : GOSUB 1000:B(2 
4)=T: IF T GOTO 28 
25: P=Z-2: GOSUB 1000:B(2 
5>=T 

26: P=Y+ll:Q=Z-4: GOSUB 1 
000: B(26)=T 

27: P=Y+12: GOSUB 1800:B( 
27)=T 

28: P=Y+i 1 : Q=Z-3: GOSUB 1 
000: B (28) =T 

29: P=Y+12: GOSUB 1000:B( 
-29)=T 

30: P=Y+ll:Q=Z-2: GOSUB 1 
000: B(30)=T . 

31 : P=Y+12: GOSUB 1000:B( 
31 )=T: GOTO 60 
32: P=Y+12: Q=Z-2: GOSUB i 
000: B(23)=T : IF T 
GOTO 39 

33: P=Y+13: GOSUB 1000: B( 

24) =T: IF T GOTO 37 
34 : P*Y+14: GOSUB 1080s B< 

25) =T 

35: P=Z:Q=Y: GOSUB 1000: b 
(26)=T 

36:P=Z+i:G0SUB 1000:B(2 
7)=T 

37: P=Z:Q=Y-i: GOSUB 1000 
: B(28)=T 

38: P=Z+l: GOSUB 1000:B(2 
9)=T 


39: P=Z:Q=Y-2: GOSUB 1800 
: B(30)=T 

40: P=Z+i: GOSUB 1800:B<3 
l)=T:GOTO 60 
41 :P=Z+l:S=Y-2: GOSUB 10 
00:B(23)=T: IF T GOTO 
48 

42: P=Z+2: GOSUB 1000: B(2 

4) =T: IF T GOTO 46 

43 :p=Z+3: GOSUB 1000: B<2 

5) =T 

44: P=Y+12: Q=Z: GOSUB 100 
0: B(26)=T 

45: P=Y+ll: GOSUB 1800:B( 
2?)=T 

46: P=Y+12:Q=Z-l: GOSUB 1 
000: BC28)=T 

47: P=Y+1 1 : GOSUB 1000: B( 
29)=T 

48:P=Y+12: Q=Z-2: GOSUB 1 
000: B(30)=T 

49: P=Y+il: GOSUB 1000 s BC 
31)=T:G0T0 60 
50: P=Y+li:Q=Z-2: GOSUB 1 
800: B(23)=T: IF T 
GOTO 57 

51 :P=Y+10: GOSUB 1000: B( 
24)=T : IF T GOTO 55 
52: P=Y+9: GOSUB 1000:B<2 
5>=T 

53: P=Z+i:Q=Y-4: GOSUB 10 
00: B(26)=T 

54: P=Z: GOSUB 1000: B<27) 
=T 

55 : P=Z+ 1 : Q=Y-3 : GOSUB 10 
00:B(28)=T 

56: P=Z: GOSUB 1000:B<29) 

= T 

57: P=Z+l:Q=Y-2: GOSUB 10 
00: B(38)=T 

58: P=Z: GOSUB 1000: B<31) 

60: IF B (23) LET I=62:G= 
I : H=I : J=I : K=I : D=I : E= 
I:F=l:L=i:M=l:N=l: 
GOTO 72 

61: IF B (24) LET I=28:G= 
I : H=I : J=I : K=I : GOTO 6 
8 

62: IF B (25) LET 1=8: 
GOTO 64 
63: 1=0 

64: IF B (26) LET G=28:H= 
3: GOTO 66 
65: G=0: H=8 

66 MF B (27) LET J=8:K=2 
3: GOTO 68 
67: J=8: K=0 

68: IF B (28) LET D=62:E= 
D: F=28: GOTO 70 
69: D=8: E=28: F=E 
70: IF B (29) LET N=62:M= 
N: L=28: GOTO 72 


7i:N=8:M=2S:L=M 
72: IF B(30) LET A=127: 
GOTO 74 
73: A=28 

74: IF B(31 ) LET 0=127: 
GOTO 100 
75:0=28 

100MF ( Y=10) + (Z=10) + (C= 
2)+(W=l )=4 WAIT 80: 
PRINT "VOUS ETES SOR 
TIS M : END 

101 : IF ( Y=10)+(Z=18)+(C= 
2) + (W=0)=4 CALL &59E 
: I4AIT 30:PRINT "CHER 
CHER LA CLE'': GOTO 12 

M— B 

102: WAIT 0: PRINT " * : CALL 
&5A2 

183: POKE &604F*O*O*O*62* 
62*0jNfîi*LïLïK*J* I*H 
jGjF*F*EjDj0ï 62* 62* A 
* A * A 

104: IF Y=U AND Z=V LET V 
=0: U=V: CALL &59E: 
HAIT 30: PRINT "CLE T 
RGUVEE " : U= ! : GOT 0 102 

105:R=R+1 : IF R=3080 WAIT 
80:PRINT "ADIEU !": 
END 

106: BCf=INKEY$ :IF BC#=" 
8" GOTO 200 

107: IF BC$=''4" LET C=C-1 
+((C=0)*4):GOTO 20 

183: IF BC$= V 6" LET C=(C+ 

1) *(C<>3):G0T0 20 

109: IF BC$= , - , 2'' LET C=(C+ 

2) *(C< >2)+( (C=3)*(-4 
)):GOTO 20 

110: GOTO 103 

121 : A= 127: 0=28: N=62: M=N: 
L=N: K=N: J=N: 1=34: H=N 
: G=N: F=N: E=N: D=N: 
GOTO 102 

200: IF B<23) CALL S59E: 
WAIT 30: PRINT "MUR'’: 
R=R+40: GOTO 100 

20 1 : Y=Y+ ( ( C=3 > * ( - 1 ) ) + ( C= 
1 ) : Z=Z+ ( ( ( C=0 ) * ( - 1 ) ) 
+ (C=2)>h(Z< 18) ) : GOTO 
20 

1000: T= INT (((B(P)*i0rt 
G)- INT (B(P)*18 rt Q 
) )*10) : RETURN 


lecture dans le tampon 
dfi.sojttie..du.camctère_ 


REDEFINITION 
DU CUVIER 

Voici pour tous ceux qui l'atten- 
daient avec impatience, une 
fonction DISP doublée d'une 
réassignation du clavier. 
Jusque là, rien d'extraordi- 
naire... Si ce n'est en fait la 
manière de l'utiliser, qui la 
rende si interréssante. 

Exemple : 1 0 : WAIT 0 : PRINT « ABCEFG » : 
CALL &4200 

l'exécution de cette ligne fera afficher le mes- 
sage « ABCDEPG » caractère par caractère de 
droite à gauche tout comme un DISP normal. 
Maintenant, si l'on veut afficher un caractère 
redéfini, il suffit de le faire précéder par le signe 
<§) de code &40. 

Alors l'exécution de la ligne : 

20 : WAIT 0 : PRINT « VIVE® L@ E@ S 
SHARPENTIERS » : CALL &4200 
fera apparaître tout en défilant : vive LES 
Sharpentiers 

Avec ce procédé, on travaille sur deux tables 
en même temps : celle de la ROM en &807F 
et celle redéfinie en &4300. 

ATTENTION ! Dans le programme LM ci-joint, 
j'ai fait le contraire. Pour ne pas qu'un carac- 
tère soit changé, il faudra le faire précéder par 
<8) RUN 20 donne : vive LES sharpentiers 
Pour ce faire, j'ai changé les valeurs des octets 
&4225.&422A, &425C, &425E,&4282, 
&428A par celles données par l'emplacement 
des deux tables (&4300 et &807 F). 

Vous comprendrez mieux en lisant le listing 
désassemblé. On peut aussi créer ses propres 
caractères en modifiant la table en &4300 (5 
octets par car.). 

On arrête le défilement par une pression suiQ] 
et on le reprend dès que l'on relâche cette tou- 
che. Pa r contre lENTER] stoppe le message et 
lENTERlde n ouveau passe à la suite du pgm 
Basic IBRKI garde sa fonction habituelle. 
Encore un détail le signe de la Racine : VI est 
codé 252, donc on ne peut plus l'afficher « nor- 
malement », il est donc redéfini sous la touche. 

C. MUNCH. 


4200 


CALL 42? 

-202 

10 

2 I D ~ 4 7 i; 

4 2 0 b 

■z; 

L J 2 

4 J* ■/! ■■ 

47 

00 

4 209 

■-r : 

iw 

J 4 riZ D :3_ 

42 0£ 

10 

L I DF 42S 

42H0Z 

i.Tv 

_ - H b -J 


52 

C T “■ 
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t 2 b 9 
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52 
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42-4 
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LID? 4 7 r 

42 1 7 

62 

-IA 00 
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■“in 

_:i 50 
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9 p 

4213 
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‘ 2 4 n 
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7 R n Z P 1 4 

42 21 
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lIDP 42 ! 

4224 
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2*4 P 

4 2 b 

52 

b : 2 

4227 

1 1 

.!jl 5E 

4229 

62 

l : a 30 

4 22 B 
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4222 

77 

_ ■■ ~ 0 5 

422E 
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L L jj 

4 2 2 r 

42 

* L- H 
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*2 b i 

l : 

2 J j L 4 9 

4 233 

52 
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4234 

1 $ 

-IBP 60i 

42 *■ ■' 

00 

: T T 

— J. i il 1_ 

4239 

96 

LP 10 

4 2 b A 

_ ’Z 

iv* • Tj 


9-0 

-P 10 

4 23C 


lIB'- 00 

423E 

\ 4 

b ?< N B 

423” 

62 

-IA 6 S 

4241 

jji T 

-IB 63: 

4243 

E 2 

CAL 0267 

4245 

62 

LIA 22 

4247 

b 2 

CAL 0264 

4249 

? F 

T) XL 

424h 

26 

I Y S 

424B 

•"CT 

■iLw 

T: i 

JJ ■■'•i i- 

424Ü 

26 

T i~ 

- ! b 

4243 

-■c 

B L 

424E 

26 

I V 3 

424F 

- r 

— 

DXL 

4250 

26 

i y s 

.1 ■-! CT T 

"t i - J. 

25 

DXL 

4252 

26 

I Y 3 

4 2 5 b 

: i 

LIDL 48 

4255 

90 

LP 1@ 

4256 

1 

HVW3 

4 257 

i - 

i 1 

LIDL *5 

4259 

96 

LP 10 

425A 

19 


4253 

■32 

L L A ? > 

4253 

83 

lIB *2 

425F 

7 

L- Al. 6 2 b 


05 

si le caractère à 
pour code 0, 
alors fin de message 


remise au début des 
pointeurs, nettoyage du 
tarnDonenariêt- 

K 4 7 34 ; 

tBSÈBÊËÊ 

si le code est &40, 
(caractère ), on 
change de table de 
caractère qui se trouve 
en & dans la ROM. 

incrémentation pour 
la lecture du tampon 


décalage de ce 
qui est déjà affiché 
vers la gauche 


X pointe sur la table 


pointe sur la matrice 
de droite 


4261 

-32 LIA 

Z 

4263 

“i T • 7 T> 

•3 i i- î z< 

b y 

4265 

z i- L- 9 i_ 

264 

4267 

10 LI3P 

4769 

426 h 

57 l 32 


4263 

75 S3I9 

29 

426D 

43 DEÇA 


4 26 z 

39 J RC? 

08 (4277) 

4 27b 

b4 i X 


4271 

04 IX 


4272 

04 IX 


4273 

04 IX 


4274 

84 IX 


4275 

2D JR7 

09 (426B) 

4277 

24 IXL 


4273 

26 iVb 


4279 

24 IXL 


42 ! H 

26 IYS 


4273 

24 IXL 


427C 

26 IYS 


4273 

24 IXL 


427E 

26 IYS 


427F 

24 I K L 


42b y 

26 IYS 


4281 

02 LIA 


4283 

10 L I DP 

425C 

4286 

52 ST3 


42o 7 

11 2 I 3L 


4289 

y z 2 h 

42 

4283 

=; V C; T T; 


428 C 

02 --I9 

0 0 

428E 

42 INC A 


428F 

67 CPI A 

08 

4291 

4E Uî A I T 

F 

4293 

4E NA17 

00 

4295 

2 9 J R H Z s 

* 08 (428E) 

4297 

24 URL y4bh 

4299 

67 CRIA 


4293 

39 JRZM 


4293 

67 C P 1 9 

1 O 

429b 


95 (420B) 

4291 

1 : T nST 

„ — i jj ; 


4294 

cç 7 in fi 


42A5 

42 INC9 


4296 

52 b 7 J 


42:47 

■» -î : r 7| j 

69 

4299 

52 S7D 


4299 

2 B J R 7 

h 8 '-42^3) 

429C 

82 LIA" 

80 

429E 

00 LU 

7 "? 

4238 

10 L I BP 

6088 

4233 

1F FILD 


4234 

11 L I EL 

48 

4236 

1F F Ii-B 


4237 

E5 CAL 

8592 

4239 

37 R7n 


4239 

IF FILB 


4233 

F5 CAL 

:59F 

4233 

67 CP 19 

0D 

423F 

38 JRZP 

87 ( 42C7) 

42C1 

6 7 C P I A 

87 

42C3 

38 JRZP 

03 (42C7; 

42C5 

2 B JR 7 

«B <4233: 

42C7 

37 RTN 



X pointe sur le caractère 
à redéfinir 


mise en place du 
nouveau caractère 
sans la matrice de droite 


on revient à la 
première table de 
caractère 


boucle de temporisation 
pour la vitesse de 
défilement 


si touche U) alors on 

boucle ! 

si touche (ENTER) alors 
onva e nÀ 42Q£.lsuileL 

si aucun appui, on 
incrémente seulement 
le compteur du pointeur 
puis on revient en &4203 


initialisation 
efface écran 


pour la sortie 

si ENTER alors le PGM continue 


(touche BREAK) si BREAK, alors il y a RTN 
avec un message BREAK IN 
si aucune de ces deux touches, 
on revient au test en 42BB. 


4239 
4238 
4210 
42:5 
4220 
4228 
4238 
4238 

4240 
4248 
4258 
4258 
4269 
4268 
4278 
4278 
4288 
4283 
4238 
4233 
42A8 
4298 
4238 
42B8 
42C0 
42C8 
4230 
42D8 
42E8 
42E8 
42F8 
42F 8 
4388 
4388 
4319 
4318 
4328 
4328 
4338 
4338 
4348 
4348 
4358 
4358 
4368 
4368 
4378 
4378 
4388 
4388 
4398 
4398 
43A8 
4393 
4338 
4338 
43C9 
43C8 
4338 
43D8 
43E8 
43E8 
43F8 
43F3 
4488 
4488 
4418 
4413 
4428 
4428 
4438 
4438 


7 y. 4 2 

8828 1310 
52 II 6952 
8900 782C 
1^0 ~25C 
5E82 3052 
D i. _ 1 -> 9 - 4 
2298 1398 
6383 68E2 
6425 2625 
2625 2611 
“598 1982 
6782 3F83 
4768 5775 

0404 0404 

2624 2624 
2632 FF 10 
5E82 4252 
804E FF4E 
3F67 8339 
9513 -285 
6952 2B98 
1863 081F 
9237 1FF5 
8767 8738 
0000 0000 
8900 0800 
3089 0898 

8808 0980 
8880 0008 
0888 8880 

8809 8808 
0809 0888 
8 878 9880 
917F 2818 
?F 10 387F 
7F 86 0488 
4856 5538 
3849 8708 
6404 6458 
8886 897E 
7F55 9845 
2418 2424 
3F40 9381 
4A44 4931 
1320 4A4h 
4A3C 8848 
20 IC 183C 
5563 447C 
8788 8282 
8814 1 6 1 C 
2908 8872 
8888 8000 
4838 2866 

4848 3848 
4948 5454 
497E 1882 
4876 1 9 7 E 
3928 843D 
5629 7E28 
2078 8878 
8870 9808 
9814 147C 

9808 0810 
4858 2848 

4849 3849 
4829 1338 
4348 3848 
4490 8833 
0008 0880 
8000 8080 
1227 4290 


4' J 60 5767 
4285 0268 

1 w 4 7 6992 

9E67 4328 
027E 5211 
I 185 5742 
1068 0588 
1180 1902 
6702 22E2 
2625 2625 
4098 1311 
FF83 42E2 
68 E 2 6410 
2043 3988 
8423 9924 
2624 2624 
425C 5211 
8288 4267 
8829 93E4 
8567 1939 
5742 5211 
8268 9027 
1140 iFE5 
9F67 3D38 
8323 8337 
8800 8088 
@003 0000 

8080 8308 
0800 8808 
8890 8880 
0808 0008 
8880 0088 

8878 4873 
0888 8981 
7F7F 7? 7 F 
3819 8406 
8800 8000 
4848 5556 
7 F 98 8753 

9887 9308 
9886 8855 
4939 2545 
1308 1615 
8101 7F31 
1314 1214 
4C39 3Ü49 
2013 2442 
4863 4149 
943C 4489 

9888 2h1Ü 
3414 08 IC 
3155 4627 
8848 7848 
493E 4028 
7E48 4830 
3848 8836 
3F4B 3582 
2808 4340 

4338 0888 
804E 513E 

8879 7088 
3848 4338 
007C 1414 
8818 7830 
2844 443E 
4838 9838 
4938 4033 
48 8 C 1328 
4231 9280 
0888 3808 
0880 4440 
8000 8080 



HISTOGRAMMES 


Conçu pour les PC 1401/02, ce 
programme a pour objectif de 
tracer des graphes (histogram- 
mes bâtons horizontaux) sur la 
CE 126P avec le plus de confort 


I iossible. Il calcule en effet 
'échelle et permet les sauve- 
gardes des données. Par contre 
9 occupe prés de 2700 octets. 


Une fois le programme introduit dans la 
machine, régler le contraste au maximum car 
plusieurs messages vont défiler sur l'écran. 
Après la traditionnelle présentation (affichée 
par des POKEs), le programme vous demande 
si vous désirez consulter un fichier. Eh oui ! Les 
graphes peuvent être sauvés sur cassette avec 
un code d'accès. Si vous tapez 0 pour oui, on 
vous demande le nom du fichier. Puis le pro- 
gramme charge les informations préléminaires 
de contrôle : le nom du fichier, le code et le 
nombre de données du graphe (N$,P,U). Il com- 
pare les noms et si ils sont identiques (le nom 
donné et celui lu), il vous demande enfin le 
numéro du code d'accès. Et là, même contrôle, 
il vous refuse l'accès en cas d'erreur de code, 
ou imprime le graphe. Il vous sera également 
demandé à un certain moment (au chargement) 
si vous voulez le tableau des données ; répon- 
dez ici par 0(ui) ou N(on). 

Dans le cas où vous ne voulez pas charger de 
fichier (ou lors d'une première utilisation), le 
nombre de données (affecté à U) vous est 


demandé, puis la plus grande valeur V, le titre 
(A) et l'unité (B) qui seront imprimés. L'échelle 
est calculée à partir de V et est divisée en cinq 
(lignes 260-310). Une boucle de 1 à U vous 
demande les données et valeurs du graphe 
(Nom, quantité). Puis avant l'impression, il faut 
donner la largeur L des bandes. Vous pouvez 
voir un aperçu du résultat avec l'exemple 
publié. Comme précédemment, on vous 
demande si vous désirez l'impression du 
tableau des données : Si 0(ui) vous remarque- 
rez que les noms sont tronqués à huit lettres. 
De plus, une question s'affiche : « VOULEZ 
VOUS SAUVEGARDEZ LE GRAPHE ? » Vous 
y répondez par Oui ou par Non. Si oui vous 
tapez le nom du fichier et le code d'accès, puis 
la sauvegarde s'effectue. Vous pourrez donc 
vous constituer une logithèque de graphes. 
Voilà donc je pense un programme très prati- 
que qui vous rendra je l'espère de nombreux 
services. 

M. Belmokhtar 


-Ni STOGRAi^meS A BANBES- 
VENTES < PIF ) 


0 5 10 15 20 

— + + + + + 

S/ IIIIIIIIII 
1/ IIIIIIIIII 
Y/ IIIIIIIIII 

T/ IlIIIIIilIIIIII 
A/ IlIIIIIilIIIIII 
1/ IlIIIIIilIIIIII 
T/ IIIIIIIIIIIIIIII 
R/ IIIIIIIIIIIIIIII 
0/ IIIIIIIIIIIIIIII 

G/ IIIIIIIIIIIHIIII 
0/ IIIIIIIIIIIHIIII 

pt/ iiiiiiiiiiiiiiiii 


f/ iiiii iiiiiiiiiiiiiii 

E/ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

u/ 1 1 1 1 1 1 1 n ii 1 1 1 1 1 1 1 1 1 


—TABLEAU DES DONNEES— 


I — NOM I i-QUANTITE I 
I STYLO II 10 I 
I TAILLE-C.II 15 I 
I TROUSSES II 16 I 
I GOMMES II 17 I 
I FEUILLES II 20 I 


S 


5: "GRAPHE": GOSUB 900: 
GOSUB 610 

10: CLEAR :DIM R$<0)*22? 

B$<0)*24jL$< 0>*80 
20: FOR G=1 TO 29 
30:Rf(0)=RI<0)+" " 

40: D$(0)=D$(0)+CHR$ (95 

50: NEXT G 

60:D$(0>=B*(0>+CHR$ <95 
)+CHR$ <95>+CHR$ (95 
>+CHRf (95) 

70:WAIT 60 

80:LPRINT "-HISTOGRAMME 
S A BANDES-": IF ZX=1 
THEN 360 
90: LPRINT "" 

100: GOSUB 200 
110: INPUT "TB. DE DONNEES 
?">PX$: IF PX*O*0UI 
" GOTO 190 

115: LPRINT "—TABLEAU DE 
S DONNEES— 

120: LPRINT B$<0> 
130:LPRINT "I-NOM I 

I-QUANTITE I":A*="tt# 
*** 

140: FOR G=1 TO U 
145: IF LEN Z$(G)>9 LET Z 
$(G)=LEFT$ <Z*(G),8> 

* V U 

* a 

150: B$=RIGHT$ <R$<0>,9- 
LEN Z$(G)):C$=RIGHT$ 
<R$(0)»8-LEN (STR$ < 
W(G)*V))):D$=STR$ <W 
(G)*V) 

160:LPRINT "I "?Z$(G>;B$ 
5 " 1 1 "!D$;C$j" I" 
170: NEXT G 

180:LPRINT " 


190: GOSUB 750: END 
200:L$<0)=" INDIQUER LE N 
OMBRE DE DONNEES? S. V 
' .P" 

210: GOSUB "P" 

220: INPUT U 

230: L$(0)=" INDIQUER LA G 
RANDEUR MAXIMUM (-DE 
200) jS.V.P" 

240: GOSUB "P" 


250: INPUT V 
260: IF V>20 AND V<=40 
LET V=2: GOTO 320 
265: IF V>20 AND V<=40 
LET V=2: GOTO 320 
270: IF V>40 AND V<=80 
LET V=4:G0T0 320 
280: IF V>80 AND V<=150 
LET V=10: GOTO 320 
290: IF V>200 LET V=20: 
GOTO 320 
310: V=i 

320: DIM W(U)»A$(2) »S$(0) 
*22» Z$(U)*10 

330:S$(0)=*IIIIIIIIIIIII 

munir 

340: L$(0)=" INDIQUER LE T 
ITRE (A) PUIS L* + 
CHR$ (39)+'' UNITE (B) 
»S.V.P*:GÛSUB "P" 
350: INPUT "A= *»A$(1),"B 
= *»A$(2) 

370: LPRINT A$(l>r < "» 
A$(2)r m.USING ’«« 
tr 

380: LPRINT " 


390: IF V>4 LPRINT * 0 " 

»5*vr *»i0*v»* ni 

5*V 

400: IF V<=4 LPRINT * 0 

M ;5*vr ni0*vr *»i 
5 *vr *»28*v 

410: LPRINT *--+ + 

+- + + ":IF ZK=1 

THEN 490 
420: USING 

430: L$(0)= v INDIQUER LES 
NOMS ET LES QUANTITE 
S DES DONNEES»S.V.P* 
440:GOSUB "P* 

450: FOR X=1 TO U 
460: PAUSE *NO:"»STR$ X 
470: INPUT “NOM: M » Z$(X) » " 
QUANTITE: *»H(X): LET 
W(X)=H(X)/V 

480: NEXT X: L$(0)=" INDIQU 
ER LA LARGEUR DES BA 
NDES»S.V„P":GÛSUB *P' 
*: INPUT L 

490:USING :FOR X=1 TO U 
500: FOR T=1 TO L 

510:LPRINT MID$ (Z$(X)»T 
» 1 )+*/ *»LEFT$ (S$<0 
>»I4(X)) • 

520: NEXT T:LPRINT ** 

540: NEXT X:LPRINT * 


550: LPRINT "" 

560:GÛTO 110 

570: ''P* : FOR G=1 TO LEN L 
$<0) STEP 2 


580: HAIT 3:PRINT MID$ (" 
* +L$ ( 0 ) » G j 16) 
590: NEXT G:WAIT 
600:RETURN 
610: DIM L$(0>*80 
620: L$(0)=" VOULEZ VOUS C 
ONSULTER LE FICHIER 
?<SI OUI i PREPAREZ LA 
CASSETTE) * 

630: GOSUB "P" 

6401 PAUSE "REPONSE (O/N) 

650: IF INKEY$ = *" THEN 6 
40 

660: A$=INKEY$ :IF A$="Q" 
THEN 680 
670: GOTO 10 

680: L$(0)= M INDIQUER LE N 
DM DU FICHIER *: 
GOSUB "P" 

690: INPUT NF$ 

780: INPUT «"GRAPHE* »’N$» P 
» U : IF N$< >NF$ THEN 7 
00 

710: INPUT "NO D ACCES :" 
5 NA: IF NA=P PAUSE "A 
CCES ACCORDE": GOTO 7 
25 

720: PAUSE "ACCES REFUSE" 
: END 

725: DIM I4(U)»Z$(U)*10, A$ 
(2) ? S$(0)*22»D$(0)*2 
4» R$(0)*22 

730: INPUT «*GRAPHE1*»V»L 
»W(*)»Z$(*)»A$(*): 
INPUT «*GRAPHE2"»D$( 
*)»S$(*)»R$(*) 

740: ZX=l: GOTO 80 
750: L$<0)=" VOULEZ-VOUS T 
RANSFERER CE GRAPHIQ 
UE SUR FICHIER ?*: 
GOSUB "P" 

760: PAUSE "REPONSE (O/N) 

■ V 

770: IF INKEY$ ="" THEN 7 
60 

780: A$=INKEY$ :IF A$="N" 
THEN 860 

790: INPUT "NO D ACCES: " j 
P 

800:L$(0)=" INDIQUER LE N 
OM DU FICHIER" :GOSUB 

M p V 

810: INPUT N$ 

815: GOSUB 980 
820: PAUSE "K7 PRETE ?0/N 
*: A$=INKEY$ s IF A$=" 
" THEN 820 

830:PRINT tt*GRAPHE*»N$»P 
»U 

840:PRINT «"GRAPHE1"» V»L 
»W(*)»Z$(#)» A$(*): 


PRINT «"GRAPHE2* 5 D$( 
*)»S$(#)»R$(*) 

850: PRINT "OK" 

868: END 

900: WAIT 0:CALL &5A2: 
PAUSE "*:PRINT " 
GRAPHES* 

910:POKE &6080»64»64»64» 
64 j 64» 126» 126» 126» 12 
6» 126i 127» 127» 127» 12! 
7» 127»96 

920:POKE 8.6010»96»96,96» 
96»112»112»112»U2»1. 

925:CALL S5A2 

930: FOR G=1 TO 200: NEXT 

bbwmmmmmm ■ 

940: PAUSE *":PRINT *( ) 
B.MOUNIR* 

950: POKE &6005> 56 » 68» 68» 
68» 32» 65» 34» 28» 0» 0» 1 
27» 80» 72» 72» 112» 6» 72 
»72»62:CALL 8.5A2 

960: FOR G=1 TO 200: NEXT 

970: PAUSE "":RETURN 

980: PAUSE "":WAIT 0: 

PRINT " PLAY/RECÛR 

990:CALL 8=5A2 
1000: POKE 8*6000» 0» 0» 0» 0 
» 00» 62» 62» 28» 8» 00» 
62»62»62»62 
1010: FOR G=1 TO 100: 
NEXT G 
1020: RETURN 



Sans plus attendre, nous vous 
présentons le premier pro- 
gramme pour PC 1450. Comme 
tous les bons programmes de jeu 
destinés aux machines récentes, 
il est issu d'une revue japo- 
naise : I/O. 

Malgré un certain manque d'originalité ce jeu 
allie avec bonheur graphisme, sons et adresse. 
Il est écrit pour la plus grande part en Langage 
Machine (encore un ESR-H) bien que le listing 
présenté et truffé de POKEs soit du Basic. 
Avant de le rentrer, il convient de faire un NEW. 
Ce programme marche d'office avec la carte 
4 Ko d'origine et vu son' implantation mémoire 
il est susceptible de tourner avec des cartes de 
8 ou 16 Ko. En effet il est placé à partir de 
l'adresse &2900, bien qu'une carte 4 Ko 
débute en &5000. Tout celà fonctionne 
(comme pour le 1 350 cf N° 1 3, p. 27) grâce 
aux recopies d'adresses (redondances). 

Une fois le pgm Basic en mémoire, MEM ENTER 
doit afficher la valeur 822. Si non, vérifiez le, 
puis sauvez le sur une cassette. Pour la pre- 
mière utilisation, tapez l'éternel RUN ENTER et 
le LM se POKEra en Ram. Par la suite, DEF A 
exécutera instantanément le jeu. Pour démar- 
rer après le message « ==START== ! », 
appuyez sur ENTER (valable pour tout mes- 
sage). Les touches de déplacement vertical 
(haut et bas) sont : ► et L. 

Avant le DEF A vous obtinedrez le son en fai- 
sant M = 1 ENTER, il s'annule par M = 0. Les 
deux meilleurs scores sont conservés. Il est à 
noter que ce programme doit pouvoir être adap- 
ter aux PC 1 401 102 sans trop d'efforts. De plus 
ne faites pas de modifications au programme 
Basic pour le rallonger, et ne faites pas résider 
en mémoire d'autres programmes en même 
temps. 

J.-F. V. 


I ï N A I ! 8 : P R I NT v y a i X ! 
" îCRLL £597: NAIT : 

GOTO 10 

2: CALL £2988: POKE £2A3 

2?RNB 3 s I F PEEK £2A3 
3)8 GOTO 218-18*N 

3: GOTO 2 


1 y : P u K t & 2 9 y y ? & 8 A ? £ 0 0 ? £ 
82? 8: 1 0 J S: 2 M ? S: 3 4 y 0: 1 8 ? £ 
y C ? & T 8 ? £ 8 1 ? £ 2 3 ? £ ÿ 7 ? £ 
18? £29? £53? £57 
llïPCKE £2910? £42? £52? £ 
18?£2A?£32?£57?£43?£ 
38 ? £ 1 A ? £43 ? £8B ? £59 ? £ 
3 y ? & y 9 ? & 6 6 ? £ 0 1 
12: POKE £2928? £38 ?£!!?£ 
D'd ? & B 2 ? «LU y =<: 0 T ? Z b b y £ 

48 y & 3 8 y S: 09 y £B8 y £5 A y £ 
18 y £29? £6B y £52 

135 POKE £2930? £8B? £BB? £ 
y 2 y & y 9 y & 1 2 y ! i 5 C y OB y £ 
5B ? £4C y £BA ? £8 A y £BB y £ 
3y y &1L? & B A ? «75 
14; POKE £2940? £10? £38? S 
0A?£75?£38?£BA?£28?£ 
y 8 y & B 1 y & 5 A y £2C y «04 y £ 
BA? &B 1 y !<: B 2 y «8 A 
15; POKE Sc2950 y £BB? £59? £ 
82 y 6: 8 8 y «34 y «02 y £70 y K 
85 y &BB y &59 y «87 y O B y £ 
82 y &3U y &84 y S: B B 
1 b ; POKE £2968 y £59 y £86 y £ 
BB y £25 y £BA? £82 ? £3 A y £ 
34 y £25 y £27 y £2F y £03 y £ 
82 y £E3 y £27 y £8 A 
17; POKE £2978y£59y£10y£ 
70 y £2 A y £8B y £55 y £46 y £ 
38 y «84 y & 1 ü y £2 A y & 3 3 y « 
55 y £47 y £53 y £2F 
18; POKE £2988? £2B? £8A? £ 
88 y £02? £18? £2 A? £34? £ 
1 9 y £84 y «02 y £FF y £BB y £ 
85 y £82 y &6F ? £ B B 
19; POKE £ 2 9 9 0 ? £ 8 2 ? £ 0 9 ? £ 
34? £04? £B5? £41 ? £2F ? £ 
84 ? £8 A ? £6 1 ? £FF y £58 y £ 
18? £2 A ? £3 A ? £00 
20; POKE £29A8?£03y£18y£ 
8E ? £7 1 y £85 y £28 y £06 ? £ 
6 1 y £32 y £51 ? £2B y £08 y £ 

I T? £3A? £8B? £80 

21; POKE £29B0y £83? £19? £ 

I I y « i A y £ 8 B y £ 0 0 ? £ 0 3 y £ 

1 8 y £85 y £ 1 1 y £37 y £08 y £ 
02? £18? £82? £83 

22 ï F’UKE £29ü0 y £34 y £8B y £ 
88? £08? £13? £84? £89? £ 
02 ? £84 ? £34 ? £25 ? £27 ? £ 
2F ? £83 ? £2F? £0B 
23; POKE £29B0? £18? £2A? £ 
i R ? £ 5 7 y £ 6 7 y £ 28 ? £ 2 8 y £ 
26 y £ 1 1 ? £3B ? £57 ? £67 y £ 
19? £28? £1F? £1 1 
24; POKE £29E0? £36? £57? £ 
67 ? £04 ? £28 ? £ 1 8 ? £B4 ? £ 
00 ? £ 1 1 ? £35 ? £02 ? £E7 y £ 
52? £18? £29? £6B 
25; POKE £29F0? £52? £1 1 ? £ 
53?£B4y£80y£10y£70?£ 
00 ? £02 ? £4 1 y £00 y £3B y £ 
IF? £37 

30; POKE £2A00?£FF?£FF?£ 
49? £6F ? £6F ? £FF ? £FF ? £ 

49 ? £FF ? £FF? £FF ? £FF ? £ 
83? £87 ? £87 

31; POKE £2A0F? £FB? £FB? £ 
49 ? £FF ? £FF y £FB ? £FB ? £ 
4B? £6F? £6F? £FF? £FF? £ 
22? £30? £38 

32; POKE £2A1E? £FF? £FF? £ 
•49 ? £6B ? £63 ? £6F ? «6F ? £ 


69? £FB? £FB? £FF? £FF? £ 

86? £8b? £88 

33; POKE £2A2B? £FF? £FF? £ 
63? £FF? £FF 

34; POKE £2A40? £82? £21 ? £ 
1 2 ? £5F ? £DB ? £BF ? £37 
35; POKE £2A48? £82? £31 ? £ 
12? £5F ? £BB? £BF ? £37 
36; POKE £2A58? £02? £7 1 ? £ 
!2?£5F? £BB? £BF?£37 
37: POKE £2A58? £82? £81 ? S 
12? £5F ? £BB? £BF? £37 
1 08 : v A v R AN BON :P0KE £29 
53? 8 : POKE £296B?£E3 
110: POKE £2A32? 1 ? 8? 8? £E3 
y 0 ? £2A ? £70 ? £70 y £32 ? £ 
32? £32? £32 

128: PR INT ==START== i v : 
CALL £597: GOTO 148-1 
0*M 

138: CALL £2A58 
148: CALL £29F5: GOTO 2 
200: FOR 1=1 TO 28: CALL & 
2A48: CALL £2A58:NEKT 

wêêksêêiêêêêsêêêkiêm 

218:8=1111 0-288*PEEK £2 A 
3A-28+PEEK £2A3B-2+ 
PEEK £2A3C-.2*PEEK £ 
2A3B 

228: PR INT "GAHE OVER ! 
y S 

238: IF 8>H GOSUB 308 
248: IF 8>G GOSUB 338 
250: F'RINT v 1 - v ? H ? M 2- v ?G 
ï GOTO 180 

388 : G=H : H=S : 8=8 : 14 A 1 T 8 : 

PR INT NI -SCORE ! v 
ÿ H: GOTO 320-10*M 
310: CALL £2A48:CALL £2A4 
8 : CALL £2A58:CALL £2 
A48: CALL £2A48:CALL 
£2 ASS 

315: CALL £2A58:CALL £2A4 
8: CALL £2A58:CALL £2 
A48: FOR 1=8 TO 9: 

CALL £2A48:CALL £2A4 
8 : N EX T I : FOR 1=8 TO 
9--NEXT I 

320: NAIT : PR INT v HI-SCO 
RE ! v ? H: RETURN 
330: G=S = 8=0: LIAIT 0:PRINT 
v 2nd SCORE ! I * * * V ?G: 

GOTO 350-10*W 
348: CALL £2A48:CALL £2A4 
0: CALL £2A58: CALL £2 
A48: CALL £2A48:CALL 
£2A58 

345: CALL £2A58:CALL £2A4 
8: CALL £2A58:CALL £2 
A 48 

350: NAIT : PR INT v 2né SCO 
RE I v ? G: RETURN 




Conçu pour les PC 1 350 el 2500 
munis d'une carte ram d'au 
moins 8 Ko (CE 201M ou CE 
202M), ce programme Basic 
permet de tracer sur écran tou- 
tes les fonctions d'équaKon y = 
f(x). Il offre pour cela un grand 
nombre de critères redéfinissa- 
bles. 

On remarquera qu'il peut être 
réduit en supprimant les lignes 
de REM et en diminuant le 
tableau Rf*) # et de ce fait être 
utilisé sur un PC de base. En voici 
un descriptif abrégé. 


• La fonction Y = F(x) choisie est à entrer en 
ligne 250. Si la fonction a un dénominateur, 
il sera entré en ligne 2 1 0 sous la forme G =.. . 
Si elle comporte une racine (SÛR ou ) ou 
autres, l'expression sous la racine est à placer 
en ligne 230 sous la forme F =... 

Exemple dans le pgm : 

Y = (SÛR (XI 2 - 2))/(X1 2-4) 

• Pour le démarrage du programme, on fait 
RUN ou DEF F. 

• On peut alors choisir le centre du repère, les 
unités, ou le choix automatique : tous les 
« panachages » sont envisageables. Si l'option 
« automatique » a été choisie, il faut préciser 
qu'il s'agit d'une fonction circulaire (SIN, COS, 
TAN...) ou non. 

• Vient alors le choix du traçage par points ou 
part lignes. 

• Puis, il faut donner la résolution du traçage : 
de 1 (lent et précis) à 9 (rapide et peu précis). 
On peut notamment changer la portée de cette 
résolution en modifiant le 0.77 de la ligne 630. 

• Enfin, et pour accélérer l'initialisation, les bor- 
nes sont demandées en ordre croissant, - 1 2 
à 1 2 au maximum. A préciser astucieusement 
selon la courbe I 

• Après l'initialisation (95 secondes maximum) 
et le traçage, un appui sur « ENTER » permet 


de réitérer le traçage ou de passer à autre 
chose ! ! 

Encore une précision, le programme fait dans 
l'état 2.7 Ko + 2.8 Ko pour les variables 
tableaux. 

Bon tracé ! ! 


B. Chaffanjon 


100: "==P RQTRACE== 

110 : -===================== 

120: " <c)=B. CHAFFANJON=N. 85 

140; •■===================== 

160: GOTO 280 

180: "***ROUTINE FONCTION#** 

200: G=i:F=l 

210: G=X*X-4 

220: IF G=0 THEN 260 

230: F=X*X-2 

240: IF F<0 THEN 260 

250:Y=<TF)/G 

260: RETURN 

270: "***DEBUT PROGRAMME*** 

280: "F": WAIT 0: CLS : CLEAR : DIM S$<3 
0) * R<250) : GOSUB 890 
290: CURSOR 24: PRINT ,l ====P R O T R A C 
£=====": CURSOR 48: PRINT "===TRAC 
EUR DE COURBES===": GOSUB 910: CLS 
300 : UX=8 » UY=5 * X0=74 » Y0=16 
310:PRINT "=CHOIX UNITES ET CENTRE=": 
PRINT "==<1) Choix automat i Aue = " 
320: PR INT "===<2) Choix des unites=": 
PRINT "====<3) Choix du centre=" 
330: A= UAL INKEY$ : IF A=0 OR A>3 THEN 
330 

340: ON A GOTO 520,430*360 
350: "***CH01X REPERE*** 

360: WAIT 0: CLS : CURSOR 51: PRINT "Dan 
s ce rePere .entrez": CURSOR 75: 
PRINT "uotne centre :" 

370: CURSOR 42: PRINT "X=149": CURSOR 48 
: PRINT " Y=" : CURSOR 72: PRINT "31" 
: GOSUB 410 

380: CURSOR 89: INPUT "XO="iXO: CURSOR 8 
9: PRINT " ": CURSOR 89: INPUT 

"YO="5YO 

390: IF MA=1 THEN 590 
400: CLS : MO=l : GOTO 310 
410: LINE <2, 2>- C 150, 32) *B: LINE <147, 0> 
-<149, 2): LINE -<147, 4): LINE <0,29 
)-<2» 31) : LINE -<4,29): RETURN 
420: "***CHOIX UNITES*** 

430: WAIT 0: CLS : CURSOR 48: PRINT "Sui 
te a ces AAs exemples" 

440: CURSOR 72: PRINT "vos unités ==>" 
450: CURSOR 24: PRINT "UX= 50 , 30 , 15 
,10,5,3" 

460: LINE <06, l)-<56, 1) : LINE <62*2)-<92 
,2): LINE <98, 3)-<ll3» 3) : LINE <119 
*4)-<129> 4) 

470: LINE <135, 5)-<139, 5) : LINE <146,6)- 
C148, 6) 

480: CURSOR 90: INPUT "UX=";UX: CURSOR 9 
0: PRINT " CURSOR 89: INPUT 

"UY=" î UY 

490: IF MO=l THÇN 590 
500: MA=i: CLS : GOTO 310 
510: "***CR ITERES TRAÇAGE*** 

520: IF MO=l OR MA=1 THEN 590 
530: CLS : GOSUB 890: CURSOR 24: PRINT " 
Cl) Fonction circulaire" 

540: CURSOR 40: PRINT "<2) Autres fonct i 
ons " 

550: H= UAL INKEY$ : IF H=0 THEN 550 
560: X0=74: Y0=16: IF H=2 THEN 580 
570: UY=li: UX=7: GOTO 590 
580: UY=5:UX=8 

590: CLS : GOSUB 890: CURSOR 24: PRINT " 
Tracaôe Par Points ou Par Liônes 
? CP/L)" 

600:0$= 1NKEY$ : IF Q$="" THEN 600 
610: IF 0$<>"P" AND Q$<>"L" LET Q$="P" 
620: CLS : GOSUB 890: CURSOR 24: PRINT " 
Résolut ion de tracaSe ? <1 - 

= > 9)" 

630: LL= UAL IfjIKEY* :LL=LL*.77: IF LL=0 
THEN 630 


640: CLS : GOSUB 890: CURSOR 24: PRINT " 
Bornes de tracaSe ?": CURSOR 50: 
INPUT "XA="ÎXA: CURSOR 60: INPUT "X 
B=" 5 XB 

650: "***INIT 1 ALISATION*** 

660: CLS : GOSUB 890: CURSOR 53: PRINT " 
initialisation": CURSOR 26: PRINT " 
Ueu i liez Pat i enter! ! ": GOSUB 930 
670: "***TRACAGE CADRE*** 

680: CLS : LINE <XO, 0)-<XO, 31) : LINE <0, 
Y0)-<149» YO) 

690: FOR X=XO+UX TO 149 STEP UX:U=U+l: 
LINE <X, YO-l)-<X,YO+l): GCURSOR <X- 
1, YO+10) : GPRINT S$<U): NEXT X 
700: U=10: FOR X=XO TO 0 STEP -UX: LINE 
<X> YO-1 )-<X, YO+1) : NEXT X 
710: FOR Y=YO TO 0 STEP -UY: LINE <XO-l, 
Y)-<XO+l, Y) : S$<U)= STR$ Y,U=U+i: 
NEXT Y 

720: IF UY<5 THEN 750 
730: IF UY>7 LET 11=4 

740: D=U-9: FOR W=U TO 10 STEP -i:D=D-i: 
GCURSOR CXO-5, UAL S$<W-1)-II): 
GPRINT S$<D) : NEXT W 
750: FOR Y=YO TO 32 STEP UY: LINE CXO-1, 
Y)-<XO+l, Y) : NEXT Y: LINE <0,YO)-<1 
50, YO) 

760: IF UY>4 LINE <0, YO)-<150, YO) 

770: "***TRACAGE COURBE*** 

780: FOR P=XA TO XB STEP LL 
790: IF Q$="P" PSET <P,R<BB)) 

800: IF Q$="L" IF R<BB+1)>0 IF RCBB+1X3 
1 LINE <P,R<BB) )-<P+LL,R<BB+l) ) 

810: BB=BB+i: NEXT P: WAIT : GPRINT 
820: "***FIN PROGRAMME*** 

830: WAIT 0: CLS : GOSUB 890: CURSOR 26: 
PRINT "Une autre courbe ?": CURSOR 
56: PRINT " <0/N) " 

840: HN$= INKEY* : IF MN$="“ THEN 840 
850: IF MN$="0" GOTO "F" 

860: CLS : CURSOR 25: PRINT "A la Procha 
i ne ..." 

870: END 

880 : " ***ROUT 1 NE CADRE*** 

890: PRINT "========================" : 

CURSOR 72: PRINT ’•================= 

=======" ; RETURN 

900: "***R0UT1NE CHIFFRES*** 

910: RESTORE 970: FOR S=8 TO 0 STEP -l: 
READ S$<S+1) : NEXT S: WAIT 80: 

PRINT : WAIT 0: RETURN 
920: "***ROUTINE INITIALI.*** 

930: WAIT 0: RADIAN : XA=<XA+XO/UX)*UX, XB 
=<XB+XO/UX)*UX 

940: FOR P=XA TO XB STEP LL: X=P/UX-XO/UX 
: GOSUB 200 : R < BB ) = < Y- YO/UY ) *-UY , BB= 
BB+l: IF BB>249 LET P=XB 
950: NEXT P:BB=0: BEEP i: RETURN 
960: "***DATAS CHIFFRES*** 

970: DATA "0B0B0F", "0F090F", "090503", "0F 
0D0D" , "0B0D0D" 

980: DATA "07040C" , "09090F" , "090D0B" , "04 
020F" 

990: ENS 








UNE AMELIORATION DU 
K-BASIC V.5.6 


Cette fois, nous allons permettre au K-Basic de 
posséder un clavier sonore (en option) et de pou- 
voir rechercher dans tout le programme, l'appa- 
rition de certaines chaînes de caractères, grâce à 
l'institution SEARCH. 

Nous commençons par charger le Basic et lorsque la sonnerie retentit, 
nous faisons Shift Break pour retourner au moniteur. Nous entrons alors 
les octets suivants : 

Dans IOFD : 37 identificateur K-Basic V.5.7 


Dans 9000 : 

11 Puis 

dans 9007 

Al 

LD 

DE, 

7CF9H 

9001: 

F9 

9008 

00 

LD 

HL, 

7CF4H 

9002 

7C 

9009 

ED 

LD 

BC, 

00A1H 

9003 

21 

900A 

: B8 

LDDR 


9004 

F4 

900B : 

C3 

JP 

OOADH 

9005 

7C 

900C : 

: AD 




9006 

01 

900D 

: 00 





Nous faison ensuite J9000 ce qui a pour effet de faire de la place, dans 
la table des mots clés pour SEARCH : 

Nous entrons à 7C53 : 53 'S' 

7C54 : 45 'E' 

7C55 : 41 'A' 

7C56 : 52 'R' 

7C57 : 43 'C' 

7C58 : C8 'H' + 80H 

Nous entrons alors à partir de 5275 : OE 00 IB 13 00 00 00 
puis à 5286 00 ; à 528F E8 ; à 5290 00 
à partir de 2073 : CD 15 OE 
à partir de 205A : 01 SWRK: DEFB 01H 
3A5A0E LD A, (SWRK) 

B7 OR A 

CC 12 OA CALL Z,?BELO 

CD 5B 02 CALL GETCAR 

C3 2C 01 JP 012CH 

à partir de 1329 : C3 5B OE ce qui déroute la routine GETL. 
à partir de 126B : 60 6B 
à partir de 8377 : A5 6B 
à partir de 2F26 : C3 69 6B. 

Nous passons maintenant au gros morceau. Nous allons entrer les codes 
suivants, à partir de 7D60H. 

Pour les adresses on remarquera que 7D60 = 6B60+ 1 200H ) 

Claviers sonores ou pas : CTRL B 


pour les adresses, on remarquera que 7D60=6B60+I200H) 


6B60 3A 5 A OE 

CTRL B :LD A, ( SWRK) 

Change le contenu de SWRK : 0 devient 1 et 

6B63 EE 

01 


XOR OIH 

inversement. 

6B65 32 5A OE 

LD (SWRK), A 


6B68 C9 



RET 


6B69 3A 54 00 

PT ABOI :LD A,(DPRNT) 

Déroute PRINT TAB. Voir explications à la fin. 

6B6C F5 



PUSH AF 


6B6 d CD 73 6B 

CALL PRTOI 


6B70 C3 2D ID 

JP ID2DH 


6B73 CD 

83 

53 

PRTOI :CALL TSTPAR 


6B76 C5 



PUSH BC 


6B77 CD 

46 

48 

CALL TEMPOI 


6B7A CI 



POP BC 


6B7B 7E 



LD A, (HL) 


6B7C FE 

29 


CP 29H 


6B7E 7B 



LD A,E 


6B7F 23 



INC HL 


6BÔO C8 



RET Z 


6B8l 2B 



DEC HL 


6B82 CD 

2E 

68 

CALL CU RS 01 


6B85 FI 



POP AF 


6B86 FI 



POP AF 


6B87 CD 

8E 

53 

CALL TSPARF 


6B8A C3 

6D 

IC 

JP PRINTS 


6B8D F5 



WRITE : PUSH AF 

Sous programme écrivant le n° de ligna 

6 b 8 e E 5 



PUSH HL 

5B=code ASCII du crochet ouvrant, 

6 b 8 f 3E 

5B 


LD A,5BH 

l'écrit. 

6B9I CD 

D3 

17 

CALL WRIT 

LD HL (n° de ligne) 

6B94 21 



, DEFB 21 H 


6B95 00 

00 


NBLIGN : DEFW OOOOH 


6B97 CD 

DB 

21 

CALL CHLASC 

Le convertit en Décimal ascii. 

6B9A CD 

E2 

17 

CALL ECRi'tES 

Lécrit. 

6B9D 3E 

5B 


LD A,5DH 

5D=code ASCII du crochet fermant. 

6B9F CD 

D3 

17 

CALL WRIT 

l'écrit 

6BA2 El 



POP HL 


6BA3 FI 



POP AF 


6BA4 C9 



RET 



6BA5 

AF 



SEARCH: XOR A 

Pas d'imprimante. 

6BA 6 

32 

19 

18 

LD (PRINTii) ,A 


6BA9 

CD 

42 

4F 

CALL SPACE 

Saute les espaces. 

6BAC 

FE 

FB 


CP FBH 

Teste s'il y a / 

6BAE 

20 

OF 


JR NZ.SEARCO 

Sinon, saut. 

6BBO 

CD 

41 

4F 

CALL SPACO 

(INC HL et CALL SPACE) 

6BB3 

FE 

50 


CP 50H 

Teste si 'P' 

6BB5 

C2 

B8 


JP NZjERRTII 

Sinon, erreur de syntaxe. 

6BB8 

23 



1 1 INC HL 

Passe derrière 'P' 

6BB9 

32 

19 

18 

! LD (PRINTK),A 

Imprimante en fonctionnement. 

6 BBC 

CD 

54 


! CALL TSTPRI 

Teste si elle est en mode texte. 

6BBF 

CD 

80 

4D 

; 

L — g*SEARCO :CALL PA RS ER 

Calcule la chaîne qui suit. 

6BC2 

CD 

D5 

56 

CALL STRIN? 

Est-ce bien une chaîne ? 

6BC5 

F5 



PUSH AF 

Sauve le caractère suivant. 

6BC6 

E5 



PUSH HL 

sauve le pointeur programme. 

6BC7 

3A 

OF 

II 

LD A,(LIGBUF) 

Longueur de la chaîna 

6BCA 

B7 



OR A 

Est-elle nulle ? 

6BCB 

20 

OA 


— JR N 7. , + T 2 

Sinon, il faut travailler ! 

6BCD 

CD 

F9 

17 

SORTIE :CALL SAUTLN ^ 

Passe à la ligna 

6BDO 

El 



POP HL 

Pointeur programme 

6BDI 

AF 



XOR A 

Arrête l'imprimante 

6BD2 

32 

19 

18 

LD (PRINTM)jA 


6BD9 

FI 



POP AF 

Caractère suivant la chaîna 

$BD6 

C9 



RET 


6BD7 

32 

10 

6c 

- ^ LD ( LONGU') ,A 

Stocke la longueur de la chaîne. 

6bda 

CD 

09 

00 

CALL NL 

Passe à la ligne 

6B DD 

2A 

AI 

73 

LD HL,(DEBPRO) 

HL indique le début du programme. 

6BEO 

5E 



BOUVjl^JLD E,(HL) 


6 BEI 

23 



INC HL 


6BE2 

56 



LD D,(HL) 

DE=longueur de la ligne. 

6BE3 

7A 



LD A,D 


6BE4 

B3 



OR E 

: DE=0 ? 

6BE5 

28 

E6 


JR Z, SORTIE 

Si oui, fin du programme : terminé ! 

6BE7 

EB 



EX DE, HL 

HL=longueur de ligne 

6BE8 

19 



ADD HL, DE 


6BE9 

2B 



DEC HL 

HL=début de la ligne suivante. 

6BEA 

E5 



PUSH HL 

La sauve. 

6BEB 

EB 



EX DE, HL 


6BEC 

23 



INC HL 


6BED 

4E 



I LD C,(HL) 


6BEE 

23 



i INC HL 


6BEF 

46 



LD B, (HL) 

BC=n° de la ligne 

6BFO 

23 



1 INC HL 

HL=début effectif de la ligna 

6BFI 

ED 

43 

95 6B 

| LD (NBLIGN ) ,BC 

Stocke le n° de ligne. 

6BF5 

II 

B5 


| LD DE,TITRKS 

Buffer où l'on va décoder la ligne de programme 

6BF8 

D5 



PUSH DE 

dont le début est pointé par HL. 

6BF9 

CD 

7C 

WiMMi 

CALL LIGDCO 


6BFC 

El 



POP HL 

début de la ligne décodéa 

6BFD 

E5 



! BOUVO : PUSH HL + 

pointeur dans la ligne décodéa 

6BFE 

CD 

OF 

60 

CALL CHERCH 

Cherche la chaîne dans la ligne à partir de HL. 

6COI 

El 



POP HL 


6C02 

30 

06 


! JR NC, +8 

Non Carry : pas trouvé. 

6CO4 

CD 

8D 


! CALL WRITE 

Carry : trouvé : on écrit le n°. 

6C07 

El 



FINLGW; PQP HL 

Pointeur de début de ligne suivante 

0CO8 

18 

D6 


✓’f'sJR bouv 

Continue la recherche 

6 ÜOT 

"28" 

W 


LjH z, -3 ^ 

Z si la ligne a été explorée en totalité : on passe 






à la ligne suivante. 

6COC 

23 



INC HL 

Sinon, on avance dans cette ligne et on conti- 

6COD 18 

EE 


JR BOUVO 

nue la rechercha 


4 COR 

06 

CHERCII: DEFB 06H 

6CI0 

00 

LONGU î DEFB OOH 

6CII 

II 10 II 

LD DE, LIT 

6CI4 

7 E 

BOÜVI : LD A, (HL) 

6CT5 

23 

PTC HL 

6CI6 

B7 

OR A 

6CI7 

C8 

R ET Z 

6CI8 

4R 

LD C,A 
LD A, (DE) 

6CI9 

IA 

6CTA 

13 

INC DE 

6CI3 

91 

SUD C 

6CTC 

B7 

OR A 

6CTI) 

Co 

RE? N Z 

6 CIE 

05 

DEC B 

6CIF 

37 

SCF 


CP 

RE? Z 

*C2T 

TP RI 

JR 3 OU VI - 


LD B, longueur de la ligne. 

DE=début de la chaîne à trouver. 
Caractère dans la ligne de orogramme. 
Avance dans la ligne. 

Teste si fin de ligne. 

Si oui, retour Z. 

Sauve le caractère. 

Caractère dans la chaîne. 

Avance dans la chaîne. 


Teste si nul 

Retour NZ et Non Carry si différents. 
Diminue la longueur de la chaîne 
Si nulle, il y aura retour Carry. 

Sinon, on continue la recherche. 


700 


La seconde modification concerne l'indentation 
des programmes. Il ne sera plus nécéssaire 
d'écrire : après le numéro de ligne pour éviter que 
le Basic supprime les espaces la débutant. 
Pour la troisième modification, j'ai pensé qu'il 
serait utile de pouvoir combiner les instructions 
PRINT et CURSOR en une seule. On pourra main- 
tenant écrire : 

PRINT TAB (x,y) « ... » au lieu de CURSOR x,y : 
PRINT « ... » 


Lancienne syntaxe TAB(x) est toujours valable, 
bien évidemment, remarquons qu'il est impos- 
sible d'utiliser la nouvelle syntaxe avec PRINT/P. 

De même, en mode PLOT ON, la commande ne 
sera pas prise en compte. 

Enfin, l'instruction SEARCH (ou SEARCH/P) per- 
met de rechercher dans un programme l'appari- 
tion de la chaîne A&. 


10 CLS 

20 PRINT TAB C 1 2, 33 "CECI " TABC 1 4 > 53 "EST" 

30 PRINT TABC 1 6, 7 3 "UNE" TABC 1 8 j 93 "DEHONST 
RATION" 

40 PRINT 

50 FOR 1=1 TO 50 
60 PRINT I, 

70 NEXT I 
80 PRINT 


Pr-et 

SEARCH "PRINT TABC " 

r 20 J F 303 

Prêt 

SEARCH 

[20] [30] [60] 

Prêt 

SEARCH/P "FOR I" 
r 50 ] 

Prêt 

PLOT OFF 


N'oublions pas, après avoir effectuées toutes ces 
modifications, de faire J8670 et de réenregis- 
trer le Basic (appuyer sur S puis sur une autre 
touche). 


FORTH 

(NIVCAU2) 

J.A CLASSE DES FORTH EN THEME 


LECTURE DU CATALOGUE D'UNE 
CASSETTE ET CREATION D'UN 
FICHIER LOGITHEQUE 


Pour réaliser cette application, nous vous pro- 
posons la démarche suivante : 

• Rappel sur la structure des fichiers cassette 
MZ. 

• Création de l'environnement et stockage de 
l'information. 

• Lecture et édition de l'en-tête d'un fichier. 

• Exploitation du fichier obtenu. 

• Suggestions pour aller plus loin. 



Votre MZ préféré (K, A, 700 ou 800), enregis- 
tre chaque fichier sur cassette comme suit : 


128 oct«t« 2 oct*t» 128 oct.t. 2 oct.t. n oct.t. 2 oct.t. n “t«t. 2 oct.t» 

At B1 A 2 82 


autrement dit, les deux éléments constitutifs 
d'un fichier cassette, à savoir : 

• l'en-tête 

• le corps du fichier 

sont enregistrés deux fois (par souci de sécu- 
rité) et suivis d'une somme de contrôle ou 
check-sum (toujours par souci de sécurité), 
d'où le message « CHECK SUM ERROR » bien 
connu. 

Ceci vous explique aussi pourquoi, certaines 


fois, la lecture d'un même fichier est deux fois 
plus longue. Ainsi lorsque le contrôle de check- 
sum de l'élément A est faux, on lit l'élément 
B. C'est seulement si le contrôle, effectué avec 
ce dernier, s'avère faux que l'erreur est 
signalée. 

Revenons à la partie en-tête du fichier ; c'est 
elle qui va nous permettre de réaliser notre 
application. Elle est constituée des éléments 
ci-dessous : 


élément 

longueur 

mot EDIFORTH 


(en octets) 

correspondant 

• Type de fichier 

1 

FTYPE 

Nom du fichier 

16(maximum) 

FNAME FILENAME> 
et >FILENAME 

• Retour chariot 

1 (=W hexa) 


• Taille du fichier 

2 

FSIZE 

• Adresse d'implantation 

2 

FTOP 

• Adresse de lancement 

2 

FSTART 

• Zone libre 

104 

- 


1 28 octets dont 24 d'informations utiles 
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Le tableau, ci-dessus, vous donne aussi les 
mots EDIFORTH permettant d'exploiter les 
informations contenues dans l'en-tête d'un 
fichier. 

A l'exception de 'FILEMANE > et de 
>FILENAME' qui permettent de lire et écrire 
un nom de fichier, les autres mots du tableau 
renvoient l'adresse de la zone concernée, du 
tampon d'entrée des en-têtes de fichiers. Celui- 
ci débute en 10F0H. 

Nous devons disposer, maintenant, de mots 
permettant de gérer et stocker les en-têtes à 
lire. 

Création de l'environnement et stockage de 
l'information 

Les mots des écrans ci-dessous permettent 
respectivement : 

• de stocker, sous forme d'une constante, la 
longueur de l'information utile dans une en- 
tête. 

• de créer une variable, renvoyant l'adresse de 
début d'un tableau pouvant contenir 50 en- 
têtes (1 200 octets). Cette taille est fixée arbi- 
trairement et peut être modifiée, si besoin est. 




•* 24 CONSTANT TENREG 

+ 

+ < < n > en mode compilation 

■ + : < n > en (ï, oc je interprétation 

* Création d'une constante renvoyant Je 

+ nombre d'octets né cessai res? pour 

* contenir les informations concernant 
+ un fichier cassette > 

y 

* G MARIABLE FICHTRE: 


+• < < n > en mode compilation? avec + : 

+ >v"=0 pour initialiser la variable + 

* < adr > en mode interprétation.- + 

y avec -adr ' - 1 "adresse contenant 1" + 

y adresse du début du tableau > + : 


* HERE FICHTRE: ï 1290 RLLOT 


+ < cette adresse correspond maintenant à + 
y la lere adresse libre du dictionnaire + : 

y lors de la réservation de 1200 octets + 

y par le mot 'RLLOT " > y 

+ y 

•4: "> +' 

+: y 


4::4::y4:4"4::y:y:4::+::y4:+4::y:+:4:4:y:yy:4:4:4:4::4:4::y+:4::yy:y:+:+:y+y + yyyy+ 
+ 4: 

+ : ADËNREG TENREG + TEHREG - FICHTRE y 

y il + : y 

■y y 

y ( < n adr > avec n"' le no de 1 "en- y 

y res i st rement recherché et "adr- " 1" + 

y adresse de son début > y 


y 0 MARIABLE NBENREG y 

:y 4 

y '" < n > en mode comp i 1 at i on + 


y < adr > en mode interprétât ion y 

+• restitue l 'adresse adr" contenant le y 
+ nombre d "en res ist rement s chars és dans y 
y le tableau? lors de la lecture d "une y 
y cassette ;• y 
y y 
y : STOFICH FTVPE NBENREG DUP >R 3 1+ y 
y DUP >R RDENREG TEHREG CMOUE y 
y R > R> ! ; y 

y < < > stocke 1 "en-tête du dernier + 

y fichier lu? sur la cassette- dans le y 
y 1er emplacement libre du tableau et y 
+ met à. jour le compteur d "enresistr. > y 
y y 


y y 

yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy 


• de disposer d'un mot qui à partir du numéro 
d'un enregistrement dans le tableau (= en-tête), 
en renvoit l'adresse de début dans ce dernier. 

• d'enregistrer le nombre d'en-têtes déjà lues 
et mémorisées dans le tableau. 

Maintenant que nous savons stocker, dans un 
tableau, les en-têtes des fichiers cassette, il 
nous reste à savoir récupérer celles-ci. 

Lecture et édition de l'en-tête d'un fichier 

Pour réaliser la lecture et l'édition, sur écran 
ou sur écran et imprimante, il nous faut créer 
encore trois nouveaux mots, décrits dans les 
écrans ci-dessous et réalisant les fonctions 
suivantes : 

• Edition sur écran des informations compo- 
sant l'en-tête d'un fichier. 

• Edition sur écran, comme ci-dessous et sur 
imprimante. 

• Lecture d'une suite d'en-têtes de fichiers, sur 
une cassette. 




y y 
y BASE 3 HEX * 
y : FICHEDIT BASE 3 HEX FTVPE C3 + 
y CASE y 
4. 01 OF OBJ" ENDÜF + 
y 92 OF . " BTX" EHDOF y 
4 93 OF , " BSD" EHDOF y 
4 04 OF . " ASM" EHDOF y 
y 05 OF . " REL" EHDOF y 
y AG OF . " PTX" EHDOF y 
y Al OF . " PSD" EHDOF y 
4 DUP DUF OF . " ?" 2 -R EHDOF y 
y EMDCRSE 2 SPACES y 
y FSIZE 3 G 4 D. R 2 SPACES y 
y F T OP 3 O 4 D.R 2 SPACES ' y 
y F ST ART 3 0 4 D.R 2 SPACES y 
y FILEHAME)- BASE ! î BASE ! y 


y < < > édite sur écran? les caracter- + 

y istiaues du fichier dont 1 "en-tête est + 
y présente dans le tampon d "entrée des + 
y en-têtes de fichiers > y 




yyyyyyyyyyyyyyyyyy.yyyyyyyyyyyyyyyyyy.s 

y 

y : PFICHEDIT PRTON FICHEDIT PRTOFF 


yy 

y 

y 


y 

y 

y 


y 

y 


< > idem "FICHEDIT " sur écran et + 

imprimante > :+: 

y 

LI ENTETE 0 NBENREG ! CR + 

BEGIN RHEADER + 

IF QUI T + 

THEN STOFICH FICHEDIT +■ 

agaih ; + 

y 

< > réalise la lecture d "une suite y 

d "en-têtes de fichiers sur cassette? y 

leur stockage dans le tableau et 1 ' * 

édition sur écran . La sortie de ce y 

mot et le retour à 1 "attente commande + 
est possible? à tout instant? par un y 

appui simultané sur les touches SHIFT + 
BREAK ou si une erreur de check-sum + 

se Produit •> y 


yyyyyy.yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy 

Remarques : 

• Le mot 'FICHEDIT' offre un exemple intéres- 


sant d'utilisation de la structure 'CASE ... END- 



CASE', pour résoudre un problème de possi- 
bilités supérieures à deux ; avec en plus dans 
le cas présent, l'existence d'une possibilité 
fourre-tout. 

• Toujours dans la définition du mot 'FICHE- 
DIT', une petite astuce permet de changer de 
base, juste le temps d'exécution du mot et de 
remettre en service la base précédente, une fois 
le travail réalisé. 

• Le mot 'LIENTETE' réalise une lecture con- 
tinue des en-têtes de fichiers, à l'aide d'une 
boucle sans fin 'BEGIN ... AGAIN', contenant 
le mot 'RHEADER', spécifique à EDIFORTH. 
Maintenant que nous disposons d'un joli 
tableau, plein de non moins jolies en-têtes de 
fichiers que pouvons nous faire de celles-ci ? 

Exploitation du fichier obtenu 

Le fichier obtenu peut-être considéré comme 
inutile, si l'affichage, sur l'écran de votre MZ, 
de chaque en-tête de fichier, suffit à votre 
bonheur. 

S'il vous reste encore un tout petit peu de cou- 
rage, le seul fait de remplacer le mot 'LIEN- 
TETE', vous réalisera l'édition des en-têtes, à 
la fois sur écran et sur imprimante. 

Par contre, il vous est possible d'aller encore 
plus loin, en réalisant les trois mots décrits dans 
les écrans ci-dessous et qui permettent 
respectivement : 

• de réaliser une édition sur imprimante, en dif- 
féré, une fois le tableau complété. 


y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y y 

PFICHTAB NBENREG 31+ 1 

DO 

I RDENREG FTVPE TENREG 
CMOUE PFICHEDIT 
LOOP ; 

< > prend successivement dans le 

tableau chaque en-tête de fichier 
présente? la transfère dans le tampon 
d "'entrée des en-têtes et l'édite à la 
fois sur écran et sur imprimante > 

LOGITEC BASE 3 HEX >FILENAME 1 FTVPE 
C NBENREG 3 TENREG y FSIZE ! 
FICHTAB 3 F TOP ! 0 F ST ART ! 
WHEADER DROP CR WCMT DROP 
BASE ! ; 

< > écriture? sur la cassette? du 

tableau des en-têtes de fichiers? sous 
forme d "un fichier objet > 


:4:yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy 


y y y y y y y y 4 y y y y 4; y y y y y y y y y y y y y y y 4: y y y y y y y y y y y y y y 


y y 

+ : LFI CH RHEADER DROP CR FTOP ! * 

* FILENAME> RCMT DROP ü + 

y y 

+ < < adr > chars e en mémoire? * 

y partir de l'adresse "adr-"? un fichier + 

* préalablement crée avec le mot * 

y "LOGITEC " > # 

y y 

y y 

y y 

y y 


y 4: y 4: 4: 4: 4: 4: y 4: y 4: 4: 4: 4; 4: 4; 4: 4: 4: 4: 4: 4; 4: 4: 4: 4: :4 4: 4: 4: 4: 4: 4: :4 4: 4: 4: 4: 4 : 4: 4 : 4: 4: 



• de sauver le tableau des en-têtes de fichiers, 
sous forme d'un fichier cassette et de jeter 
ainsi, les bases d'un véritable fichier logithèque. 

• de charger le ou les fichiers logithèques, ainsi 
réalisés, à partir de l'adresse souhaitée. 

Remarque : 

Les 'DROP' qui suivent les mots 'WHEADER, 
RHEADER, WCMT et RCMT' dans les défini- 
tions précédentes, éliminent le drapeau mis sur 
la pile, à la fin de chaque opération de lec- 
ture/écriture. 


Et maintenant, si une parcelle de courage vous 
habite encore, peut-on faire mieux ? 

Suggestions pour aller plus loin 

Pourquoi ne pas créer un mot fusionnant plu- 
sieurs fichiers logithèques ? 

Ce qui est possible, soit en réalisant un mot 
'LIENTETE' ne remettant pas à zéro la varia- 
ble 'NBENREG', quitte à agrandir le tableau de 
stockage des en-têtes. 

Soit en créant un mot réutilisant 'LFICH' et 
sachant gérer les adresses de fin de fichier, de 


fichiers logithèques que vous pourrez alors 
charger, successivement en mémoire et récu- 
pérer ensuite, sous forme d'un fichier unique. 
N'hésitez pas à nous faire part de vos réalisa- 
tions et de vos suggestions et rendez-vous, 
dans un prochain numéro, pour un débarque- 
ment en FORTH des lutins, sur l'écran de votre 
MZ. 

En attendant, bon courage à tous. 

Dominique BEURIER 



BUDGET/BOURSE 

l Itlilll: 


Votre argent vous intéresse ? Alors tapez vite ces 
2 programmes ! Le premier gérera votre budget 
familial et vous permettra de mieux maîtriser vos 
dépenses et recettes. 

Le second sera votre agent de change, il prendra 
en charge toutes vos opérations boursières. 

BUDGET - COMPTE BANCAIRE 
Remarques préléminaires 

Tous les mois sont codifiés sur leurs 3 premières lettres sauf JUN pour 
juin et JUL pour juillet. 

Le programme travaille sur 1 1 rubriques de dépenses et 6 de recettes. 
Dépenses codées de 1 à 1 1 
Recettes codées de 1 2 à 1 7 

Chacun peut modifier les noms des rubriques selon ses besoins en res- 
pectant toutefois le caractère Recette ou Dépense. 

Programme pour MZ-700 et disquette. Les sauvegardes sont 
automatiques. 

Au menu 

1/ Mise à jour de écritures 

Suivre les indications. Le numéro demandé est celui des 3 derniers chif- 
fres du chèque ou bien la mention CB pour une facture carte bancaire 
ou PRV pour un prélèvement ect. à l'imagination de chacun. 

Le programme demande le code à prendre dans la table apparaissant 
dans la partie inférieure du masque en fonction de la rubrique dans 
laquelle on range l'écriture. 

De 1 à 1 1 : Dépenses ainsi dénommées : 

EDF, (TEL)éphone, (IMP)ôts, (ASS)urances, (LOY)ers, (AUT)omobile, 
(INV)estissements, (HAB)illement, (FON)ctionnement, (REM)boursement 
d'emprunts, (SAN)té (dépenses). 


10 PR INT "B" s G0SUB50000 

310 CURSORO, 5 : PR INT" ***# ***#**##*#**##*#**# » « « * * ***** !» ****** " 

410 CURS0R5, 7 

510 PRINT"Progr amme de Compte Banque" 

610 CURS0R5* 12 ' 

710 PR INT "par BUY COTTREEL" 

810 CURSQR5, 17 

910 PRINT"1 e 10 Octobre 1984" 

1010 PRINT 

1110 PRINT"*#**»#**********#********#**************" 

1210 CURSOR 1 5 » 24 s PR I NT " XXXXX*. " 

1310 C0L0R,,0,5 

1410 F0RZ=1T01000:NEXTZ:PRINT"S" 

1510 INPUT" Quelle annee <e>: : 85 ) ?! " ; AA$: AA$=" "+AA* 

1810 PR INT "S" : G0SUB27510 
1910 GQT013610 

1950 REM" " 

1960 REM"MISE A JOUR DES ECRITURES" 

1970 REM" " 

2010 PR INT "B" 

2110 CURSOR 5, 15: INPUT"QUEL MOIS RENTREZ VOUS ?:";ZZ$ :N$=ZZ*+AA* 

2210 PRINT: PRINT" Y a-t-il déjà des écritures -CY/N>" 

2310 GETZ$: IFZ*="N"THENH=0: B0T02610 

2410 IFZ*=" Y"THENPRINT : PR INT "Rappel f i chi er , " .'G0SUB249 10 :S0T02610 
2510 G0T02310 
2610 PR INT "B" 

2710 CURSORO, 0:PRINTTAB (5) ; "Ecritures de:"; N* 

2810 F0RX=ÜTQ79: SETX, 4: NEXTX 
2910 FQRX=0T079: SETX , 34: NEXTX 

3010 CURSORO, 18: PRINT" EDF: 1" : TAB ( 10) ; " AUT: 6" : TAB (20) ; " REM: 10" ; TAB (30) 5 " ALL: 1 
4" 

3110 PRINT" TEL: 2"; TAB (10) 5 " INV: 7" ; TAB (20) ; " SAN: 1 1 " 5 TAB (30) ; " SEC: 15" 

3210 PRINT" I MP : 3 " ; T AB < 1 0 > ; " HAB: 8" ; TAB (20) ; " SA1 : 12" ; TAB (30) 5 " DIV: 16" 

3310 PRINT" ASS : 4 " ; T AB ( 1 0 > ; " FON: 9" î TAB (20) ; " SA2: 13" ; TAB (30) ç " SOL: 17" 

3410 PRINT" LOY : 5" 

3510 I=H+ 1 

36 1 0 0NERR0RG0T023 1 1 0 

3710 CONSOLES, 14: PRINT"S" : CURSORO, 4: PRINT"Enreg . n« :",*I : CURS0R25, 4: INPUT"DATE 
<2c> : "5A*(I> 

3810 CURSOR 10, 6: INPUT "NATURE OU NO (3c):"5B*(I> 

3910 I FLEN < B$ < I ) ) >3THEN38 1 0 

4010 CURSOR 0,8: INPUT"LIBELLE ( 18c > : " S C* ( I > 

4110 IFLEN (C* ( I ) ) >18THEN4010 

4210 0NERR0RGDT023110: CURSOR 10, 10: INPUT "MONTANT (9c):";D(I> 

4310 IFD ( I ) >99999. 99THEN4210 

4410 ONERRORG0T02321O: CURSOR O, 12: INPUT" CODE (2c):"!E(I) 

4510 I FE < I ) > 1 8THEN44 1 0 

4610 C0NS0LE23, 2: CURSQR5, 23: PRINT" < S > ui te, (F) i n , (E) rreur ?: " 

4710 GETZt : IFZ*="S"THENPRINT"S" : EE$ < I ) ="-" : 1 = 1 + 1 : 60T03610 
4810 IFZ*="F"THENH=I : EE$ ( I ) ="-" : G0T015510 
4910 I F Z*= " E " THENF'R INT"S" ! GQT0361Ü 
5010 G0T04710 

5100 REM" " 

5110 REM"LECTURE DES ECRITURES" 

5120 REM" " 

5210 PR INT "B" 

5310 CURSOR 5,5: INPUT"quel mois voulez-vous lire ?:";ZZ$ 

5410 PR I NT : PR I NT : PR I NT : PR I NT 
5510 G0SUB24910 

5610 PRINT" ( I ) mpri mante ou (E)cran ?" 

5710 GETX*: IFX*=" I "THENPLOTON: GOT06010 
5810 I FX $= " E " THEN60 1 0 
5910 G0T05710 

6010 PRINT"S" :PRINTTAB( 10) ; "Ecritures de:"; N* 

6110 F0RX=0T079: SETX, 4: NEXTX 

6210 CURSORO, 3: PR INT "DAT* NO* "; SPC (3) ! "LIBELLE" 5 TAB (26) 5 "* MONTANT " ; TAB (35) ; "* 
0K" . 

6310 F0RX=0T079: SETX, 8: NEXTX 
6410 CONSOLES, 20: CURSORO, 5 
6510 Z=1 
6610 F0RI=1T0H 

6710 IFE ( I ) < = 1 1THEND ( I > =-D ( I ) 

6810 K=K+D ( I ) 

6910 NEXTI 

7010 F0RI=1T0H : IFD < I > =OTHENNEXTI 

7110 PRINT A* ( I > ; T AB ( 3 ) ; "*";B*(I) ;TAB(7> ; "*";C*(I> ; TAB (26) ; "* " ; US ING "######. ##" ; D 
(I) , " 

7210 PRINTTAB (36) 5 USING"#&I?<" ; EE$ ( I > 

7310 IFZ< 13THENZ—Z+1 : GQT07810 

7410 IFZ >= 1 3THENCURS0R5, 22: PRINT" (S) ui te ou <F)in ?: " 

7510 GET Z* : I F Z*= " S " THENPR I NT " S" : Z= 1 : CURSORO , 5 : NE XT I : G0T079 1 0 
7610 IFZ*="F"THENC0NSDLE0, 25: PLOTDFF : G0T08410 
7710 G0T07510 
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Concu p o ur la classe (niveaux 
ÇftHf , CM2 et 6 e ), le programme 
TABLE permet aux éleves de 


Avant d'être utilisé par les élèves, le pro- 
gra rp m è dloît ëfre Thitiâllsé H D {S P C ) : 
1010 à 1040), sinon l'appel par l'élève du répé: 
titeiir parDEF A conduira au~jriesjsagê r Appelle 
Ile-professeur ». Un RUN provoque le même 
résultat puisqu'il annule la valeur 1 donnée à 
UNIT!, dr a p e au d'jinitièlisalion j( 1 020). Le rhodule 
DEF " " doit être employé avec prudence car 
il contient le seul CLEAR du programme, En 
1020 il faut donner à N la valeur du nombre 
d'élèves de la classe. Les tableaux MO (N, 3) 
et VI (l\l, 3) enregistrent le total obtenu par cha- 
que élève pour chaque opération et la vitesse 
utilisée pour obtenir ce résultat. En 1030 le pro- 
fesseur donne à la variable BO la valeur maxi- 
mum des tables : par exemple 1 0 ou 1 2 ou 20 
s'ils sont doués en calcul mental. 

DEF A appelle le répétiteur proprement dit. 
L'élève est invité à donner son nom dans le 
sous-programme « nom », ceci afin de trouver 
en lisant les DATA son n° d'ordre J qui ser- 
vira pour les tableaux de résultats et de vitesse. 
Les noms devront être rentrés préalablement 
par le professeur à partir de la ligne 610. 
L'elève procède ensuite au choix de l'opération 
en frappant le signe correspondant. Il fait de 
même pour la vitesse : 1 = LENT, 3 = RAPIDE. 
Cette vitesse permet de calculer la limite maxi 
de la boucle de saisie de la réponse (Q) dans 
la routine « INK ». 

Après l'affichage du titre correspondant à l'opé- 
ration choisie (voir ligne 80), l'ordinateur pro- 
pose 20 calculs : boucle en K de la ligne 100 
à la ligne 250. Le choix aléatoire des deux ter- 
mes (RND) est effectué en ligne 1 10 et dans 
les sous-programmes propres à chaque opéra- 
tion. Pour la soustraction et la division, il y a 


répéter les tablés de calcul, et 
au professeur de surveiller leur 
progrès. 


inversion des valeurs pour mettre en A le résul- 
tat jde jl'additiôn jou jde la multiplication 
correspondante. !' 1 

Exemple : 

10+5=15 

ABC 

15-5=10 

La saisie du résultat s'opère par INKEY$. Son 
fonctionnement n'est pas régulier : il faut bien 
presser la touche pour que ça marche. On peut 
préférer remplacer les lignes 1 30 à 1 80 par un 
INPUT X, mais alors la notion de rapidité de 
réponse est bannie car avant de frapper, l'élève 
peut prendre tout son temps pour réfléchir. 
Un message annonce la réussite ou l'échec tan- 
dis qu'un total de points s'affiche selon le 
principe : 

+ 1 pour une bonne réponse 
- 1 pour une mauvaise réponse 
Le nombre de points est affecté à T et celui de 
bonnes réponses à M. 

Les 20 calculs effetués, il y a affichage de la 
moyenne M et du message « AU REVOIR ! ». 
En ligne 280, si e résultat obtenu dépasse un 
résultat précédent pour la même opération (0 
est le drapeau de l'opération), l'ordinateur pro- 
cède aux changements nécessaires. 

La visualisation des résultats par le professeur 
est obtenu par le module « Z ». Il donne le n° 
d'ordre, le nom de l'élève et pour chaque opé- 
ration le résultat et la vitesse utilisée. I) peut 
ainsi se rendre compte des progrès ou au con- 
traire conseiller à tel ou tel de prendre une 
vitesse inférieure. On passe d'un élève à l'au- 
tre par ENTER. 
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Re Pe t. i t eur 
de tables 


(c) D.BRIANT 
09 : 85 


IF I N I T = 0 PRINT "APPe I 


e ur ! " • GOT O 20 

» GOSUB "nom": RANDOM :T=0>M=0: USING 
"ttttttfi" 

: CLS : PRINT "Choisir le s i 9ne : " : 
PRINT " + - * /": PRINT " " : 

PRINT "Uitesse 1/2/3 ?": BEEP 1 

: IF INKEY$ =" " THEN 50 

:Z$ = 1 NKEY$ : CURSOR 20>0: NAIT 40: 
PRINT Z$ 

:U= UAL INKEY$ : IF U=0 OR U >3 THEN 

70 

:Q=30+120/U: CURSOR 20,3: PRINT 
INKE-Y$ : NAIT 0 

: GOSUB "T"+Z$ 

: CLS : PRINT "TABLE D";OP$: LINE (0, 
0 ) - (149 > 7 ) , X > BF : CURSOR 67: PRINT " 
Total 

: FOR K = 1 TO 20 

:A= RND BO: GOSUB Z$ 

: CURSOR 48: PRINT AI" "îBÎ" = 

": CURSOR 73: PRINT " 



De 1 2 à 1 7 : Recettes : 

SA1 : Salaire 1 ere personne 

SA2 : Salaire 2 e personne 

(ALL)ocations familiales ou autres prestations. 

(SEC)u : remboursement Sécu ou mutuelle 
(DlV)ers : recettes diverses 

(SOL)de : solde de départ au 1-1 de l'année trois comptes d'épargne 
et comptes chèques du ménage. 

2/ Annulation d'une écriture 

Chaque écriture est repérée par un numéro d'enregistrement qu'il faut 
retrouver en faisant l'option (6). On annule l'enregistrement en notant 
le numéro d'enregistrement. 

3/ Relevé mensuel 

Cette option restitue à l'écran ou sur papier le relevé mensuel analogue 
à un relevé bancaire. 

4/ Tableau récapitulatif 

2 options : (M)ensuel ou (C)umulé 

Le mensuel regroupe par type de dépenses et recettes les écritures que 
vous aurez rentrées au fur et à mesure. Il vous donne un solde qui serait 
réel si toutes les écritures étaient déjà enregistrées à la banque. 

En bas de l'écran apparait une ligne reconnue banque qui donne le solde 
des écritures effectivement pasées en banque. 

Le cumulé fait la même chose à partir du 1 -1 jusqu'au nombre du mois 
désiré. On obtient un solde du même type que pour l'option mensuelle 
avec, en bas un montant Banque (qui doit être identique à son relevé 
banque) et un montant Epargne. 

Ensuite, le programme donne les histogrammes écran des dépenses et 
des recettes. Le plus grand montant servant de base 100 pour les autres 
montants. 

5/ Rapprochement écritures-banques 

Permet de vérifier que l'on est bien d'accord avec sa banque. A récep- 
tion du relevé bancaire, il faut retrouver les écritures une à une à l'aide 
de l'option (6) et noter le n° d'enregistrement en faisant attention au 
mois car une écriture débitée (ou créditée) en novembre peut avoir été 
notée dans votre fichier en septembre. 

6/ Recherche d'écritures 

Suivre les instructions. La dernière colonne EN reprend le numéro d'en- 
registrement dans le mois considéré. Numéro à utiliser pour l'option (5). 
7/ Mise à jour du solde épargne 

On ne tient compte que du concept MENAGE et EXTERIEUR. On rentre 
donc au 1 -1 le solde de tous les comptes du ménage. Il faut ignorer tous 
les virements qui partent d'un compte ménage pour aller à un autre 
compte ménage. Il faudra par contre tenir compte avec l'option (7) du 
nouveau solde apparu après ce type d'opération. Ceci permet à l'ordi- 
nateur de calculer par différence le solde du compte chèque. 

A chaque changement de mois, il faut noter le solde épargne avec cette 
option. Le solde que l'on entre le 1-1 est celui qui considère que toutes 
les opérations de décembre sont passées en banque même si ce n'est 
pas le cas. 

8/ Fin : Pas de commentaires. 

BOURSE : Environ 16Ko avec les tableaux dimensionnés 

Principe : 

3 fichiers principaux 


7810 NEXTI 

7910 IFX*="I"THENPLOTON 

8010 IF I=H+1THENC0NSQLE0, 25: PRINT ! PRINT : PRINT s PR INT "Sol de de " ? N$; USING" : ####### 

.##";«; 

8110 PRINT" F. " s PRINT : PRINT : PRINT" (F> i n " s PLOTQFF 
8210 GETZ*: IFZ*="F" THEN 8410 
8310 B0T08210 

8410 F0RI=1T0H: IFD ( I ) COTHEND ( I ) =-D < I > 

8510 NEXTI 

8610 K=0!PRINT"g":F0RI = lT0H:A*(I>=" ":B*(I)=" D ( I )~0: E ( I > =0: EE* ( I ) =" " : N 

EXT I 

8620 GOTO 136 10 

8700 REM" " 

8705 REM "CONFECTION DU TABLEAU" 

8708 REM" " 

8710 PR INT "g": WW=0 

8810 PRINT "Tableau mensuel (M) ou cumul depuis le 
1» Janvier <C).“: PRINT 
8820 PRINT"-faire choix (C)" 

8910 GETZ*: IFZ*="M"THEN9310 

9010 IFZ*="C"THENPRINTs INPUT "Sur combien de moi s?: " ; V: WW=1 : G0T09210 
9110 G0T08910 

9210 DATA J AN , FE V , MAR , AVR , MA I , J UN , J UL , AOU , SEP , DCT , NOV , DEC 

93 1 0 REST0RE92 1 0 : FOR W= 1 TO 1 2 :■ READ Z Z * ( W ) : P* ( W > = Z Z * ( W ) + AA* : NE X T W : I F WW= 1 THEN96 1 0 

9410 PRINT: INPUT" Quel mois ?: " ; ZZ*: P*=ZZ*+AA$ 

9510 IF(P*=M*)+<P*=N*)THEN 10310 

9610 PRINT " S" s I FWW= 1 THENFORW= 1 TOV : R0PEN#4 , P* ( W > : G0T098 1 0 
9710 R0PEN#4,P* 

9810 INPUT#4,H 
9910 FOR 1= ITOH 

10010 INPUT#4,A*(I> ,B*(I> , C* ( I ) ,DCI) ,E(I> , EE$ ( I ) 

1O110 NEXTI 
10210 CL0SE#4 
10310 GOTO 164 10 
10410 I FHH= 1 THEN200 1 O 

10510 PR I NT * PR I NT : PR INT: PRINT" ( I > mpri mante ou (E)cran ?" 

10610 GETZ*: IFZ*=" I "THEN P.LOTON: GOTO 109 10 
10710 I FZ *= " E " THEN 1 09 1 0 
10810 GOTO 106 10 

10910 PR INT "B" î F0RX=0T079: SETX , 3: SETX, 6: SETX , 30: SETX , 35: SETX , 40: NEXTX 

11010 F0RY=6T040 

11110 SET20» Y: SET62, Y: NEXTY 

11210 FOR Y=3T040 : SET39 , Y : SET40 , Y : NE X T Y 

11310 IFWW=lTHENCURS0R15,0:PRINT"Cumul sur ";V;" moi s" : PRINT: G0T01 1510 

11410 CURS0R15, O: PRINT"MOIS DE "; P*: PRINT 

11510 PRINTTAB (5) ; “Dépenses" ; TAB (25) ; "Recettes" : PRINT 

11610 RESTORE 18710: F0RT=1T06 

11710 PRINT" ";F*(T> ;TAB(11> ; USING"######" ? G (T) ; 

11810 PRINTTAB (21) ; " " 5 F* <T+1 1 ) ; TAB (32) ; USING"######" ; G (T+l 1 > 

11910 NEXTT 
12010 FQRT=7T0 1 1 

12110 PRINT" " ; F* (T) ; TAB ( 1 1 ) ; USING"######" ; G (T) 

12210 NEXTT 

12310 PRINT: PRINT" Total " ; TAB ( 1 1 ); USING"######” ; G ( 18) ; 

12410 PR I NTT AB (21) ; " Total " ; TAB ( 32) ; US ING" ######"; G ( 1 9 ) 

12510 I FG ( 20 ) < OTHENCURSOR 1 , 19:PRINT” Sol de" : TAB ( 1 1 ) ; USING”######" ; G (20) 

12610 IFG < 20) >=0THENCURS0R21 , 19: PRINT"Solde" ; TAB (32) ; USING"######" ; G (20) 

12710 I FWW< > 1 THEN 1 30 1 0 

12810 PRINT: PRINT" Position DEPOT=" ? USING"#######" ; SS-EP (V) 

12910 PRINT" + Solde EPAR. = "; USING"#######" ; EP <V> : PRINT" TOTAL BANQUE = 

> "; USING"#######"; SS: GOTO 131 10 

13010 PRINT: PRINT" Reconnu Banque USING"#######" ; SS 
13110 PLOTOFF 

13210 GETZ*: IFZ*=" "THEN13210 
13215 G0SUB4Ü000 
13310 F0RY=1T020: G (Y) =0: NEXTY 
13410 XX=0: YY=û: SS=0 

13500 REM" " 

13510 REM" MENU" 

13519 REM" MENU" 

13520 REM" " 

13610 PR INT "B" 

13710 PRINTTAB ( 15) 5 "MENU" 

13810 PRINTTAB ( 15) ; " " 

13910 PRINT 
14010 PRINT 

14110 PRINT" 1 — Mise a jour des écritures" 

14210 PRINT 

14250 PRINT" 2 — Annulation d’une ecr i ture" : PR INT 
1 43 1 O PRINT " 3 — Releve de compte" 

14410 PRINT 

14510 PRINT” 4--Lecture du tableau recapitulatif " 

14610 PRINT 

14810 PRINT" 5 — -Rapprochement Ecritures-Banque ":PRINT 
14910 PRINT" 6 — Recherche d’ ecr i tures" : PRINT 
15010 PRINT" 7 — M. A. J Soldes Epargne” : PRINT 
15110 PRINT" 8 — Fin" 

15210 CURSORO, 23: PRINT". . .Tapez le n » choisi..." 

15310 GETZ : 0NZGQTQ20 1 O , 32000 ,5110,8710, 236 10,2511 O , 269 10,27710 
15410 GOTO 153 10 

1 55 1 0 CONSOLEO , 25 : PR I NT " B" : CURS0R3 , 1 0 : PR I NT " Sau veq ar d e fichier" 

15710 W0PEN#1 , "QQ" 

15810 PR I NT # 1 , H 
15910 FORI = ITOH 

16010 PR INT# 1 , A* < I > ,B* < I ) ,C* ( I) ,D< I > ,E < I > , EE* ( I ) 

16110 NEXTI 
16200 CLOSE# 1 

16210 N*=ZZ*+AA*:P*=ZZ*+AA* 

1 6220 0NERR0RG0TQ235 10: DELETEN* 

16300 RENAME "QQ” ? N* : GOTO 1 36 1 0 
16410 FORI = ITOH 
16510 X=E ( I ) 

16610 I FX = 1 THENG (1)=(G(1)+D(I> > : NEXTI 
16710 IFX=2THENG(2)=(G(2)+D(I) ) :NEXTI 
16810 IFX=3THENG 03) = (G (3) +D ( I > > : NEXTI 
16910 I F X=4THENG <4)=(G(4)+D(I) ) :NEXTI 
17010 IFX=5THENG ( 5 ) = ( G ( 5 ) +D ( I ) ) : NEXT I 
17110 IFX=6THENG(6)=(G(6)+D( I) ) : NEXTI 
17210 IFX=7THENG (7) = ( G (7) +D ( I ) ) : NEXTI 
17310 IF X=8 THENG <8)=(G(8)+D(I) ): NEXTI 
17410 IFX=9THENG (9) = (G (9) +D ( I > > : NEXTI 
17510 I F X = 1 0 THENG ( 1 0 ) = ( G ( 1 0 ) +D < I ) ) : NEXTI 
1/610 IFX=1 1 THENG (il)=(G(ll)+D(I> ) : NEXTI 
17710 IFX=12 THENG ( 1 2) = (G ( 12 ) +D ( I ) ) : NEXT I 
17810 I FX = 1 3 THENG <13) = (G(13)+D(I) ) : NEXT I 
17910 IFX=14 THENG < 1 4 ) = < G ( 1 4 ) +D ( I ) ) : NEXTI 
18010 I FX= 1 5 THENG ( 15 ) = (G ( 1 5 > +D ( I ) ) : NEXT I 
18110 I FX= 1 6 THENG < 16) = (G ( 16) +D < I) ) : NEXTI 
1B210 IFX= 1 7 THENG (17) = (G(17)+D(I) ) : NEXT I 

18310 IFHH=1THEN GG(6,W)=G(6> : GG ( 7 , W ) =G ( 7 ) : GG <8, W ) =G (8 ) : GG ( 9 , W ) =G < 9 ) 

18410 IFHH=1THEN S ( 1 , W) =GG ( 6, W ) -GG (6 , W- 1 ) : S (2, W) =GG (7, W > -GG ( 7, W-- 1 ) : S ( 3 , W ) =GG ( 8, W 

) -GG (8, W- 1 ) : S < 4 , W) =GG (9, W) -GG ( 9 , W-l ) : GOTO 1 97 1 0 

18510 RESTORE 187 10 

18610 FORT = 1 TOI 7 : READF$ (T) : NEXTT 

18710 DATA EDF. TEL, IMPOTS, A5SUR , LOYERS, AUTO, INVEST , HABILLEM, FONCT , REMB, SANTE, SAL 
. 1,SAL. 2, ALLOC.REMB SECU, DIVERS, SOLDE 
IBB 10 FORI = ITOH 

18910 IFEE$ ( I ) IF ( (E ( I > >=1 ) # (E ( I ) < = 1 1 ) ) : XX=XX+D ( I ) : G0T0191 10 

19010 IFEE*( I )="-": IF ( (E ( I ) >=12) * <E ( I ) < = 17) ) : YY=YY+D ( I ) :G0T0191 10 
19110 NEXTI 
19210 I F W< VTHEN 1971 0 

19310 FORL= 1 TOI 1 : G ( 1 8 ) =G (18) +G (L. ) : NEXTL 
19410 FORL= 1 2TQ1 7 : G ( 1 9 ) =G (19) +G (L ) s NEXTL 
19510 G ( 20 ) =G ( 1 9 ) — G ( 1 8 ) 



ACFRAN = Actions françaises 
ACETRAN = Actions étrangères 
OBLIG = Oligations 

Programme utilisable uniquement sur disquette car il utilise entre autres 
des fichiers à accès direct. Selon ses besoins, on peut modifier les noms 
de fichiers, du type ACTIONS - SICAV - OBLIG par exemple. 

Que peut-on faire de ce programme ? 

A- Un masque avec quelques conseils 
B- Un catalogue : 1. Actions françaises 

2. Actions étrangères 

3. Obligations 

4. Evolution du portefeuille 

5. Sortie de programme 
Pour 1, 2, 3, et 5 aucun commentaire. 

L'option 4 permet, par fichiers de savoir quel montant on possède ainsi 
que la plus ou moins value potentielle réalisable. Cumul des montants 
et les plus ou moins values. 

C- Quand on fait l'option 1, 2 ou 3, il y a apparition d'un menu. 


Menu 

1- Création d'une fiche : permet de rentrer une nouvelle valeur que l'on 
ne possédait pas encore. L'ordinateur travaille sur les codes SICOVAM 
ou ALPHA qui sont repris sur la plupart des journaux financiers. Le pro- 
gramme demande le code valeur, le nom de la valeur ainsi que la page 
des cotations, (mettre à jour le cours, plus rapidement). 

2- Consultation du répertoire : visualise l'ensemble de portefeuille dans 
le fichier appelé. 

3- Mise à jour d'une fiche : Appel du code valeur. 

Apparition d'un masque donnant les renseignements principaux. 
Plusieurs options possibles sur cette valeur : 

a) Achat 

b) Vente 

c) Cours au 1-1 Suivre les instructions qui apparaissent 

d) Coupon 

e) Tirage sur papier 

f) Fin de mise à jour 
Explication du masque : 

1 ere ligne : nom de la valeur et son code 

2 e ligne : nombre de titres et page de cotations 

3 e ligne : cumul des achats effectués depuis le 1-1 et idem pour les ventes 

4 e ligne : prix de revient global et cours au 1-1 de chaque année 

5 e ligne : * cours (date et valeur) T , „ , . , 

6 e ligne : * cours (date et valeur) Tendance (hausse baisse e 9 allte) 

* le dernier cours entré chasse le précédent dans le 
masque. 

7 e ligne : Evaluation globale sur la valeur selon le cours en vigueur 
8 e ligne : Plus ou moins value globale selon la différence entre évalu- 
tion et prix de revient. 

9 e ligne : Montant des coupons perçus et rentabilité par rapport au 
prix de revient. 

4- Journal des mouvements : Chaque opération réalisée depuis le 1-1 
est centralisée sur cet historique. 

5- Travaux de fin d'année : Option à manier avec précaution car elle 
permet de vider les mémoires pour repartir sur la nouvelle année avec 
le nombre de titres et le prix d'achat. On considère que l'on rachète les 
titres au prix de revient de la fin de l'année précédente. 

6- Sortie du fichier : Sans commentaire. 


19610 SS= INT ( G <20) -YY+X X ) 

19710 IFWW= 1 THENNEXTW 

19810 601010410 

23110 I FERN=3THEN42 1 O 

23210 IFERN=3THEN4410 

23310 IFERN=40THENRESUME 1910 

234 1 O I FERN=40THENRESUME274 1 0 

23510 RESUMENEXT 

23520 IFERN=40THENC0NS0LE: RESUME 1361-0 

23600 REM" « 

23605 REM"RAPPRQ ECR I TURES--BANQUE " 

23608 REM"— 

23610 PR IN T "g" 

23710 PR INT" TRAVAIL PREPARATO IRE: " : PR INT 

23810 PRINT" Prenez votre releve Banque et revenez PRINT 
23820 PRINT" a MENU en prenant l’option C RECHERCHE" : PR INT 
23830 PRINT" D’ECRITURE 3 .En appelant chaque" : PR INT 
23840 PRINT" montant dans le mois ou vous" : PRINT 
23850 PRINT" pensez qu’elle a ete passée. vous" : PRINT 
23860 PRINT" obtiendrez le n ■> d’ecriture a "SPRINT 
23870 PRINT" r approcher PR I NT 

23880 PRINT : PRINT : PRINT : PRINT" (M) enu ou (S)uit.e ?" 

23890 GETZSi: IFZ$="M"THEN 13610 

23900 IFZ*="S"THEN PR INT "S" : GOTO 24010 

23910 GQT023390 

24010 INPUT "Quel mois ?s";ZZ* 

24110 T50SUB249 1 0 

24210 PRINT" g" : PR I NT : PR INT" ATTENTION . N* : PRINT: INPUT "Quel n » d ’ e. 
approcher ?:";I 

24310 I F ( ( E ( I ) >=1)*(E(I)< = 11) > : EE$ ( I ) = "DT" 

24410 I F < ( E < I ) >=12) ME (I) < = 17 ) ) :EE*< I)="CT" 

24510 PR INT : PRINT : PRINT" (E)ncore ou (F)in 
24610 GETZSi: IFZ$="E" : PRINT"B" : GQTÛ24210 
24710 IFZ$="F " : 60SUB1551Ü 
24810 GQT0246 1 0 

24910 N$=ZZ$+AA$: F‘Si=ZZSi+AAS>: R0PEN#2, N*: INPUT #2. H: FOR 1 = 1 T'OH: INPUT#2 

> » C* (I ) , D < I ) , E < I ) , EEt < I ) : NE X T I : CL0SE#2 
25010 RETURN 

25100 REM" 

25105 REM "RECHERCHE D’ECRITURES" 

25108 REM" 

25110 0NERR0RG0T023520 

25210 PRINT "S" : INPUT"Quel mois " ; Z Z* : NS>=ZZSi+AA$ 

25310 PRINT: INF'UT“Quel montant cherchez -vous ?:";QZ 
25410 PRINT "S" : PRINT "Ecritures de F: ";QZ:" en " : NS. 

25510 F0RX=0T079: SETX, 4: NEXTX 

25610 CURSORO, 3: PRINT "DA T * NO* " : SPC ( 3 > : "L I BELLE " : TAB ( 26 > : " * MONTANT 

*FN" 

25710 F0RX=0T079: SETX , 8: NEXTX 

258 1 0 C0NS0LE5 , 20 : CURSORO ,5:1 FKK= 1 : G0T0260 1 O 

25910 G0SUB2491Û 

26010 F0RI=1T0H 

26110 I FQZ< >D ( I > : G0T0264 1 O 

26210 PR INTAS. ( I ) ; TAB (3) ; ; B* ( I ) : TÀB (7) ; "*" : c* ( I ) ; TAB (26) ; "*" : US ING" 

D ( I ) , 

26310 PRINTTAB (36) SUSING"*##"; I 
26410 NEXTI 

26510 PRINT: PRINT: PRINT” (E)ncore ou (F) in sur 
26610 GETZSi: IFZ$="F" : CONSOLE: KK=0: G0T013610 
26710 IFZS>="E ,, :KK=l: CONSOLE: PR INT "S" : G0T025310 
26810 G0T026610 

26850 REM" 

26860 REM-M.A.J. SOLDE EPARGNE" 

26870 REM" 

26910 PR I NT " B" : INPUT "Quel est le n« du mois ?:"; ZU: PRINT: PRINT 
27010 INF'UT"Quel est le nouveau 

solde d’Epargne ?:";EP(ZU) 

27110 W0PEN#7, " AAA " : FORI = 1 TO 12: PRINT#7, EP ( I ): NEXTI : CL0SE#7 
27210 0NERRQRG0TQ234 1 0 
27310 DELETE " EPA "+ AA* 

27410 RENAME " AAA " , " EPA " +AA* : GOTO 1 36 1 0 
27510 0NERR0RG0T0233 10 

27610 ROPEN#B, "EPA " +AA*: FOR 1 = 1 TOI 2: INF'UT#8, EP ( I > : NEXTI : CL0SE#8: RETURN 

27700 REM" ■■ 

27710 REM "F IN DE PROGRAMME" 

27720 REM" » 

27810 CONSOLEO , 25 : PRINT "B" 

27910 F0RJ=5T045 
28010 FOR I=5T075 
28110 SETI, J, 2: NEXTI, J 
28210 F0RI=10T015 
28310 F0RJ=10T022 
28410 RESETI, J:NEXTJ, I 
28510 F0RI=10T020 
28610 FOR J =28T040 
28710 RESETI, J: NEXTJ, I 
28810 FORI =20T030 
28910 F0RJ=5T025 
29010 RESETI, J : NEXTJ, I 
29110 FORI =25TQ40 
29210 F0RJ=25T045 
29310 RESETI, J: NEXTJ, I 
29410 FOR I =35T050 
29510 F0RJ=5T020 
29610 RESETI, J : NEXTJ, T 
29710 FOR I =55T060 
29810 F0RJ=5T025 
29910 RESETI, J:NEXTJ, I 
30010 FORI =45T060 
30110 FQRJ=25T045 
30210 RESETI ,J:NEXTJ, I 
30310 FOR I =65T075 
30410 F0RJ=10T020 
30510 RESETI ,J:NEXTJ, I 
30610 FOR I =70TÜ75 
30710 FOR J=20T025 
30810 RESETI, J: NEXTJ, I 
30910 FOR I =65T075 
31010 F0RJ=25T040 
31110 RESETI, J: NEXTJ, I 
31210 CURSORO, 24 
31310 F0RI-1T02000: NEXTI 
31410 F0RI=1T025 
31510 PRINT: NEXTI 
31610 END 

31900 REM" 

31910 REM"ANNULATION D’UNE ECRITURE" 

31920 REM" — — " 

32000 PR INT "S” 

32010 PRINT:PRINT:F'RINT: INPUT" Quel moi s ?:";ZZ$ 

32020 G0SUB249 1 0 

32030 F'R INT: PRINT: INF'UT" Quel n» d’enr. faut-il effacer ?:";I 

32040 FOR J= 1 TOH 

32050 IFJ=I : D ( I ) =0: GDT032070 

32060 NEXTJ 

32070 G0SUB15510 

32080 GOSUB 13610 

40000 DIMG ( 17) , V ( 17) , FS. ( 1 7) 

40010 PR INT "B" 

40020 FOR 1=1 TD 1 1 
40030 IFG( I) >H:H=G(I) 

40040 NEXTI 
40050 FOF: 1 = 1 TOI 1 

40060 V ( I > =40- INT (34* G ( I ) /H) : NEXTI 

40070 PRINT"B":PRINTTAB(5) ; "HISTO DES DEPENSES" 


HA FO RE SA 


40080 F'RINTTAB (5) ; " ■■ 

40090 FOR I = 1 TO 1 8 : PR I NT 11 if" : IME X T I 
40 1 00 FOR I = 1 T 040 : PR I NT '* jg" ; 

40110 NEXTI 

40120 CURSOR 1,21 SPRINT “ED TE IM AS LO AU IN 
40130 FQRI = 1 TO 1 1 
40 140 FORJ=V ( I > TD40 
40 1 50 FORK= (7*1-5)70(7*1) 

40 1 60 IFV ( I ) < >40 : SETK ,,1,1 

40170 IMEXTK , J , I 

40180 CURS0R5, 24 f PRINT" (S) ui te ou <F>in" 

40190 GETZ*: I FZ*= " S "THEN450 1 0 
40200 IFZ*="F"THEN 13310 
40210 G0T040 1 90 
45010 PR INT "g" 

45020 F OR I = 1 T 06 
45030 IFG(I+11> >Hs H=G ( 1 + 1 1 ) 

45040 NEXTI 
45050 FOR 1=1 TÛ6 

45060 V(I+11>=40-INT(34#G(I+11> /H) :NEXTI 
45070 PRINT"g":PRI.NTTAB<5) ! "HIST0 DES RECETTES" 

45080 F'RINTTAB (5) ; " ” 

4 509Cf F OR I = 1 TO 1 8 : PR I NT " i$" : NE X T I 
451 00 FOR I = 1 T O 40 : PR INT" &» 5 
45110 NEXTI 

45120 CURSDR 1,21s PR INT" SA 1 SA2 ALL SEC DIV SOL 

45130 F0RI=1T06 

45 1 40 FOR, 3 =V < 1 + 1 1 ) T040 

45 1 50 FQRK= <12*1-10) TO (12*1) 

45160 I F V < I + 1 1 > < >40 : SETK , J , 1 

45170 NEXTK , J, I 

45180 CURS0R5, 24:F'RINT" (F) in" 

45190 GETZ* 

45200 IFZ*=”F"THEN 13310 
45210 G0TG40 1 90 

50000 DIMA* (70) , B*(70) , C* (70) , D(70) ,E<70) .G (20) .F* (17) , F* ( 
9, 12) ,EE*(7G) ,EP< 12) , Z Z* < 12) 

50100 RETURN 


:) , S ( 4 , 12) , Ut (12) , GG ( 


BOUP se 


10 COLOR, ,7, 1 SPRINT"1" SPRINTS PRINTSPRINT 
20 PRINTTAB ( 10) ; "********************#" 

30 PRINTTAB(IO) ; "* 

40 PRINTTAB (10) ; "* GESTION BOURSE *" 

50 PRINTTAB (10) 5 "* # 

60 PRINTTAB(IO) 5 "***************#****#": PRINT 

70 PRINT: PRINTs PRINT: PRINT » Par Guy COTTREEL le 11 Novembre 19B4" 

75 F0RI = 1T02000: NEXTI s G0SUB3500 
77 PRINT" amW!«BgBgB ' 

80 PRINT: PRINT: PRINTTAB < 10) ; "Catalogue gene ral" 

90 PRINTTAB ( 10) ; s prximt: PRINT 

100 PRINTTAB (5) 5 " 1 — Actions Françaises" s PRINT 

110 PRINTTAB (5) 5 " 2 — Actions Etrangères" : PRINT 

120 PRINTTAB (5) ;» 3— Obi igations" s PRINT 

125 PRINTTAB (5) ; " 4 — Evaluation du Portefeui 1 1 e" : PRINT 

127 PRINTTAB (5) ; " 5 — Sort'ie du programme" : PRINTs PRINT 

130 PR I NTTAB ( 20 ) ; " Lequel ? : " 

140 GETZS 0NZG0TQ160, 180,200,2100,2560 

150 GOTO 140 

160 Z Z*= " I NDACFRA " 

170 YY*="ACFRAN" s G0T0220 
180 Z Z*= » I NDACETR “ 

190 YY*=." ACETRAN" : G0T0220 
200 ZZ*=" INDQBLI6" 

210 YY*="OBLIG" 

220 QQ*="QQ" 

230 G0SUB33B0 

240 F0RI=lT050s DA* ( I > : VA* ( I )="-": DO* ( I ) ="-" s TE* CI ) ="-" : DU* ( I ) = "•-" : pc* ( I > = "-" 
s NB ( I ) =0 s PA ( I ) -Os PV < I ) =0 : PG ( I ) =0 s CO < I > =0: CU < I ) =0: CR ( I ) =0: CP < I ) =0: TQ < I ) =0: EV ( I ) =0 
s PL ( I ) =0: MV ( I ) =0: K ( I ) = 0 : NEXTI 

250 REM" 

260 REM "ENTREE FICHIER INDEX" 

270 REM" 

280 0NERR0RG0T02780 
290 R0PEN#1 , Z Z* 

300 INPUT# 1 , N 
310 F0RI=1T0N 
320 I NPUT# 1 , VA* ( I ) « CD ( I > 

330 NEXTI 

340 CLOSE # 1 : UNLQCK Z 2* s UNLOCKYY*: G0T02630 

350 REM" » 

360 REM "CREAT ION D’UNE FICHE" 

370 REM" 

380 PRINT"g" s N=N+ 1 

390 INPUT" Quel code ?:"; CD (N) s PRINT 
400 INPUT" Quelle valeur ; VA* (N) : PRINT 
410 INPUT" Quelle page cotation ?:";PC*(N) 

420 REM" 1 ■■ 

430 REM "SAUVEGARDE INDEX" 

440 REM" 

450 0NERR0RG0T027 60 
460 W0PEN#2,QQ* 

470 PRINT#2,N 
480 FOR 1=1 TON 
490 PRINT#2, VA* ( I ) , CD ( I ) 

500 NEXTI 
510 CLQSE#2 
520 DELETEZZ* 

530 RENAMEQQ*, Z Z* 

540 REM" 

550 REM "SAUVEGARDE FICHE N« I" 

560 REM" 

570 X0PEN#3,YY* 

580 PRINT#3 (N* 18-17) , NB (N) , PA (N) , F'V (N) , PG (N) , CO (N) , CU (N) , CR (N) , CP (N) , TQ (N) , EV (N) 

, PL (N) , MV (N) , K(N) , VA* (N) ,PC* (N) « DO* (N) , TE* (N) , DU* (N) 

590 CL0SE#3: G0TQ2630 

600 REM» 

610 REM "AFFICHAGE INDEX" 

620 REM » — -— : -, 

630 PRINT"HBB< I ) mpri mante ou (E)cran ?" 

640 GETZ*: IFZ*-" I "THENPLOTONs G0T0670 
650. IFZ*="E"THEN670 
660 G0T0640 

670 PRINT"g" s PRINTTAB (3) ; "Portefeuille " ; YY* 

680 PRINT"**************************************" 

690 PRINT" CODE * LIBELLE " 


700 print" ******* ******* ma te* **** ****************- 

710 CDNS0LE5 , 20 : S= 1 
720 FOR 1=1 TON 

730 IFCD ( 1 > =OTHENCONSOLEO, 25: G0T02630 
740 F‘R I NTUS I NG “ ###### " ; CD < I ) ; 

750 PRINT" * " ; USING"S< &"SVA*(I)s 

760 I FS< 7THENS=S+ 1 : G0T08 1 0 

770 IFS>=7THENCURS0R5, 22s PRINT" (B) ui te ou (F) in ?" 

780 GET Z* s I F Z *= " S " THENPR I NT " g" s S= 1 s NE XT I : G0T0820 
790 IFZ*="F" THENCONSOLEO , 25 : PLOTOFF s G0T0263O 
800 60TQ780 
810 NEXTI 

820 I F I =N+ 1 THENCONSOLEO , 25 s PR I NT s PR I NT : PR I NT "( F ) i n " 

830 GETZ*s IFZ*=”F"THENPLQTaFFs G0T02630 
840 G0T0830 

850 REM" 

860 REM"MISE A JOUR D’UNE FICHE” 

870 REM" 

880 F'RINT"g" s INPUT" Quel code demandez-vous ; Z 

890 F0RI=1T0N: IFCD ( I ) =ZTHEN910 

900 NEXTI 

910 G0SUB4000 

940 PR INT "g" 

950 PR INT "VAL s " ; 

960 COLOR , , 0 , 5 : PR I NTUS I NG " & V ; VA* ( I 

970 COLOR, ,7, lsPRINTSPC(l) ; "CD: »! 

980 COLOR, , 0,5: PRINTUSING"######"! CD (I > :PRINT: COLOR, ,7, 1 
990 PRINT "NB:"; 

1000 COLOR, , 0, 5.s PRINTUSING"####" ! NB ( I ) ! 

1010 COLOR, ,7, 1 s PRINTSPC (10); "PAGE COTATIONS"! 

1020 COLOR , ,0,5: PR I NTUS I NG " & PC* ( I ): PRINT 

1030 COLOR, ,7, l:PRINT"ACH"; 

1 040 COLOR , , 0 , 5 : F'R I NTUS I NG " ####### . ## » ; PA ( I ) : 

1050 COLOR, ,7, 1 s PRINTSPC (7) ; "VTE" ! 

1060 COLOR, ,0,5 : PRINTUSING "#######.## " : PV ( I > SPRINT 
1070 COLOR, ,7, 1 : PR I NT " PREV : 

1080 COLDR, , 0, 5: PRINTUSING"#########. ##" ! PG ( I ) : 

1090 COLOR, ,7, l: PRINTSPC (2) ; "COURS 1/1"; 

1100 COLOR, , 0, 5 : PR I NTUS ING "#####. ##";CD(I) SPRINT 
1110 COLOR, ,7, l:PRINT"COURS "; 

1120 COLOR, ,0,5: PRINTUSING"?, &"!DO*(I): 

1130 COLOR, ,7, 1 SPRINT" s "; 

1140 CDLOR, ,0,5: PR I NTUS I NG "#####. ##";CU(I) 

1150 COLOR, ,7, l: PRINTTAB (21) 5 "TENDANCE: 

1160 COLOR , ,0,5: PR I NTUS I NG " & &":TE*(I> 

1170 COLOR, ,7, 1 SPRINT "COURS 

1180 COLOR , ,0,5: PR I NTUS I NG " & &"!DU*(I); 

1190 COLOR,, 7,1: PRINT”:"; 

1200 COLOR, ,0,5: PRINTUSING"#####. ##" ; CR ( I ) SPRINT 
1210 COLOR, ,7, 1:PRINT"EVAL" ; 

1220 COLOR, ,0,5: PRINTUSING"?, &"!DU*(I)J 
1230 COLOR ,,7,1: PR INT ; 

1 240 COLOR , , 0 ,5 : PRINTUSING "######### . ## " ; E V ( I ) : PR INT 
1250 COLOR, ,7,1: PR I NT " PVALTQT : " ; 

1 260 COLOR ,, 0 , 5 : PR I NTUS I NG "######.##"; PL ( I ) ! 

1270 COLOR, ,7,1s PRINTSPC (3) ; “MVALTQT: » ; 

12B0 COLOR, ,0,5sPRINTUSINI3"######.##":MV(I) SPRINT 

1290 COLOR, ,7, 1 s PRINTSPC (2) ! "CPT: " ; 

1 300 COLOR , , 0 , 5 : PR I NTUS I NG "######.##"; CP ( I ) ; 

1310 COLOR, ,7, l: PRINTSPC (2) ; "R7.s "; 

1320 COLOR, ,0,5s PRINTUSING"###. ##" ! TQ ( I ) 

1 330 COLOR , , 7 , 1 s PR I NT " ===================================== 

1 340 CONSOLE 19,6: CURSORO ,21: PLOTOFF 

1350 PRINT" 1=ACHAT 2=VENTE 3=C0URS 4=COUPON" : PRINT 
1360 PR INT" 5=C0URS AU 1/1 6=EDITI0N PAPIER 7=FIN":pRINT 
1370 PRINTTAB ( 15) ; "Choix. .?" 

1380 GETZ: 0NZG0T01410, 1540, 16B0, 1B30, 1940, 1990,2030 
1390 GOTO 1380 

1400 REM" - 


operation ?: " ; F* (K ( I ) ) : PRINT 
" ;D(K(I) ) : NB (I ) =NB < I ) +D (K (I ) ) SPRINT 
compris ?: " ; A (K ( I ) ) s PA ( I > =PA ( I ) +A (K ( I ) ) : 


1430 GQSUB2830 
■ 1440 K ( I ) =K ( I ) + 1 

1450 PRINT"B":CURS0R1, 19: INPUT" Date d 
1460 INPUT "ACHAT 9 Combien de titres ? 

1470 CURSORl, 23: INPUT" Prix total, Frai 
PRINT 

1480 PG ( I > =PA ( I ) -PV ( I ) : IFF'V ( I ) >=F'A ( I ) THENPG ( I ) =0 
1490 IFNB (IX >0THEN, PR < I ) =PS ( I > /NB < I ) : PR I NT " B" : GOTO 1510 
■ 1500 PR (I ) =0 • " 't 

1510 G* (K ( I ) ) =" " : E (K ( I > ) =0: B (K ( I ) ) =0: H* (K ( I > ) =" " : C (K ( I ) ) =Os G0SUB293O 
1520 GOTO 1770 

1530 REM" 


1560 GQSUB2830 
1570 K ( I > =K ( I ) +1 

1580 PRINT"B" : CURSORl, 19s INPUT"Date d’operation ?: " ; G* (K < I > ) s PRINT 
1590 INPUT" VENTE -) Combien de titres ?:"; E <K < I )): IFE <K < I )) >NB < I ) THENPRINT: PRINT" 
Impossible, veuillez revoir. . . " : GOTO 1590 
1600 NB < I ) =NB < I ) -E (K ( I ) ) s PRINT 

1610 CURSORl , 23: INPUT” Prix total , Frai s compris?:" : B (K ( I > ) : PV ( I ) =PV < I > +B (K ( I ) ) : 
PRINT ■ ■ . ■ ■■■■' 

1620 PG ( I > =PA ( I > -PV ( I ) : IFPV ( I ) >=PA ( I > THENPG ( I ) =0 
1630 IFNB < I ) < >OTHEN PR ( I ) =PG ( I ) /NB < I ) : PRINT"! 

1640 PR ( I ) =0 

1650 F* (K ( I ) ) =" " : D (K ( I ) ) =0: A (K (I ) ) =0: H* (K (!>)=' 

1660 GOTO 1770 

1670 REM" - 


: GOTO 1650 


: C ( K ( I > ) =0 : GQSUB2930 


1700 PRINT"B":CURS0R5, 19: INPUT" Date du jo 


; N* SPRINT: INPUT" Cours du jo 


1710 IF (DO* ( I ) =" 11 ) * (DU* ( I ) =" " ) THEN1730 
1720 DO* ( I ) =DU* < I ) : CU ( I ) =CR ( I ) 

1730 DU* ( I ) =N* : CR ( I ) =M 

1740 I F ( CR ( I > >CU < I ) > * ( CU < I > < >0 ) THENTE* ( I ) = " Hausse " : GOTO 1 770 
1750 IFCR ( I ) =CU < I ) THENTE* ( I ) = "Stabl e" : GOTO 1770 
1760 IFCR ( I ) <CU ( I ) THENTE* ( I > ="Bai sse" 

1770 EV ( I ) =CR ( I ) *NB < I ) : L=EV ( I ) -PG ( I ) 

1 7B0 I FL >OTHENPL ( I > =L : MV ( I ) =0 : GOTO 1810 
1790 IFL/OTHENMV ( I ) =-L: PL ( I ) =0: GOTO 1810 
1 800 I FL=OTHENF'L ( I ) =0 : M V ( I > =0 
1810 PR INT "B": CONSOLE: CURSORO, 0SG0T0940 

1820 REM" 

1830 REM "COUPON" 

1840 REM" 

1850 G0SUB2830 
1860 K ( I ) =K ( I ) + 1 

1870 PRINT"B" .s CURS0R5, 19: INPUT" Date coupon ?: " ; DA* ( I ) : H* (K ( I ) ) =DA* ( I ) : PRINT 
1880 CURS0R5,21: INPUT" Total coupon ?: " ! C (K ( I ) ) : CP ( I ) =CF' ( I ) +C (K < I ) ) 

1B90 IFPG (IX >0THENTQ ( I > =CP ( I ) * 100 /PG ( I ) : G0T0191O 
1900 TQ < I ) =999 . 

1910 F* (K ( I ) >="" :D(K(I) >=0:A(K(I> )=0:G*(K(I) >=”" :E(K(I) )=0:B(K(I) ) =0: G0SUB2930 
1920 PR I NT " B" s CONSOLE : CURSORO , 0 : G0T0940 

1930 REM" 

1940 REM "COURS AU 1/1" 

1950 REM" 

1960 PRINT"S" : CURS0R5, 19: INPUT" Cours au 1/1 ?:";CO(I) 

1970 F'RI NT "g" : CONSOLE : CURSORO , 0 : G0T0940 

1980 REM" 

1990 REM "EDI T ION PAPIER" 

2000 REM" 

2010 PRINT"S" : CONSOLEO, 25: PLOTON: G0T0940 ‘ 

2020 REM" — — — : •• . : 

2030 REM"FIN" 

2040 REM" - » 

2050 CONSOLEO, 25 
2060 G0SUB5000 
2080 G0T02630 

2090 REM"- : 

2100 REM "EVALUAT ION PORTEFEUILLE" 



2110 REM" " 

2120 QNERRORGOT02800 
2130 CLR: G0SUB338O 

2140 PRINT"g“ : PRINT: INPUT” Date du .jour s. v. p. . : ” ; TT*: PRINT: PRINT 
2130 PRINT" CI imprimante ou (E)cran ?" 

2160 GETZ*: IFZ*=" I "THENPLOTON! SDTD2190 
2170 I F Z *= ” £ " THEN2 190 
2180 GQT02160 

2190 PRINT"S": PRINT” EVALUATION DU PORTEFEUILLE AU ”5 TT* 

2200 PR I NT ” " î PR INT 

2210 F0RB=1TQ3 

2220 aNQSOT02230, 2240, 2250 

2230 YY*= " ACFRAN” : GQT02260 

2240 YY*= " ACETRAN " : 80T02260 

2250 YY$="OBLIG” 

2260 X0PEN#7 , YY* 

2270 1=1 

2280 INPUT#7 ( I# 18-17) , NB ( I ) , PA ( I ) , PV < I ) , PG ( I > , CO ( I ) , CU ( I ) , CR ( I ) , CP ( I > , TQ ( I ) , EV ( 
n,PL(I),MV(I),K(I),VA*(I),PC*(I),DO*(I),TE*(I>,DU*(I) 

2290 IFEOF (#7) THEN2310 
2300 1=1+1 :G0T02280 
2310 N=I 
2315 CL0SE#7 

2320 F0RI = lT0Nï RR (Q) =RR (Q) +EV C X > : SS (D) =SS (Q) +PL < I ) : CC (0) =CC (0) +MV ( I ) îNEXTI 
2330 PRINT! PRINT” EVAL. “ ; YY*j TAB ( 13) 5 ” ! " 5 
2340 PR INTUSING” ######### . ##” ; RR (B) ,* 

2330 PRINT” ! ” 

2360 PRINT” + / - val . ” 5 TAB ( 13) ; ” ! " 5 TAB (26) 5 ” ! ” 5 
2370 PR I NTUS ING” ######### . ## ” ; SS ( Q ) -CC < B ) : PR I NT 
2380 NEXTB 

2390 PRINTTAB C 13) ; ■■==========================” 

2400 PRINT: PRINT” EVAL. GENE. TAB (13) 5 ” ! " ; 

2410 PR I NTUS I NB " ######### . ##" JRR (1) +RR (2) +RR (3> î 
2420 PRINT” » " 

2430 PRINT” +/- val .tôt. ”îTAB<13) j ” ! ”;TAB(26) ; ” ! ”5 

2440 PR I NTUS I NG ”#########.##” 1 SS ( 1 ) -CC ( 1 ) +SS (2)~CC<2) +SS ( 3 ) -CC ( 3 ) 

2450 PLOTOFF 

2460 PRINT: PRINT: PRINT” <F5in" 

2470 GETZ*: IFZ4< >”F”THEN2470 

2490 F0RB=1T03 

2500 RR (Q) =0: SS (B) =Os CC (Q) =0 

2510 NEXTB 

2520 PR I NT " S” : GOTQ77 

2530 REM” " 

2540 REM "SORTIE DE PROGRAMME" 

2560 PRINT” g” : QNERRORGOT 028 1 5 
2570 Z=0: 1=3: J=0: K=17: L=24: M=31 : N=C 

2580 PRINT "g” : Z=Z + 1 : CURSORI , J : PR INT” F” : GURS0R17, L: PRINT” I ” ! CURSORM, N; PRINT”N” 
2590 1=1+1 : J=J+1 : L=L— 1 : M=M— 1 : N=N+ 1 
2600 IFZ< 13THEN25SO 
2610 LOCKZZ*: LOCKYY* 

2620 CURSORO, 24: END 
2630 REM "MENU” 

2640 PRINT” g” : CURSOR 1 0 , 2 : PR 1 NT ” ” 

2650 PRINTTAB ( 1 0 ) ; ” ~ MENU ” î YY* j TAB (25) ; ” 

2660 PRINTTAB ( ÎO) ; SPRINT: PRINT: PRINT 

2670 PRINT” 1 — Création d’une fiche": PRINT 

2680 PRINT” 2 — Consultation du repertoi re" : PRINT 

2690 PRINT” 3 — Mise a jour d’une fiche": PRINT 

2700 PRINT” 4 — Journal des mouvements "SPRINT 

2710 PRINT” 5 — Travaux de fin d’annee”: PRINT 

2720 PRINT” 6 — Sortie du fichier" 

2730 CURSOR5 »22:PRINT” Leque 1 ?" 

2740 GETZ : BNZG0T0360, 610, 860, 3040, 7000,77 
2750 GGT02740 

2760 IFERN=40THENRESUME 530 
2770 IFERN=40THENRESUMENEXT 
2780 I FERN=4OTHEN2630 
2790 I FERN=40THEN29 1 O 

2800 I FERN=40THEN I FQ< =2 : B=S+1 : GOTG2220 


2810 G0TQ2315 

2815 I FERN=60THENRESUME2620 

2820 REM” “ 

2B30 REM"RAPPEL FICHIER JOURNAL” 

2840 REM" " 

2850 DNERR0RGDT02790 
2860 R0PEN#8, STR* (CD ( I ) ) 

2870 FORP=lTOK(I) 

2880 INPUT#8,F*(Pî ,D(P) , A (P) , G* (P) , E (P) , B (P) , H* (P) , C (P) 

2890 NEXTP 
2900 CLOSE#8 
2910 RETURN 

"2920 . REM"' — : — -” 

2930 REM "SAUVEGARDE FICHIER JOURNAL" 

■ 2940\ REM ———————— — — — •— ^ — — — — " 

2950 0NERR0RGQTG2770 
2960 WOFEN49, "XXX" 

2970 FORT=TTOIC< I > 

2980 PRINT#9,F*(T) ,D(T) ,A(T) , G* <T> , E <T) »B (T) , H* (T) , C(T) 

2990 ,:NEXTT ■ ■ ' 

3000 CLOSE#9 

301 0 DBLETESTR* (CD ( I ) ) 

3020 RENAME”XXX” , STR* (CD( I ) ) 

3030 7 RETURN' 

3040 PRINT”g” : PRINT: PRINT 

305© INPUT" Quel code appelez-vous ?";TT:COLOR, , O, 5: PRINT"g" 

3060 FORI=ITC)N ... 

3070 IFCD ( I > =TTTHENG0T03090 

'■3080 INEXTI 
.■3090 G0SUB4000 
312© SOSUB283Ü 

3130 PRINTTAB C ÎO) ï "JDlffîNAL DES MOUVEMENTS" 

''. : 3140^rall4r." °""== ====^^ 7 

■3150 PRINT“VALEUR? "î 

3155 COLOR, , 0,6:PRINTUSING“?e &";VA*<I>; 

3160 COLOR, ,0,5îPRINT"CDï " 

y 3165 : IX^tK,.,0,6!QJRStlR33,5 : raiNTUSINB."»»##»»" j CDi p ; :C«-OR, ,0,5 : 

318© PRINT" i * noaÉïre# . prix total : : : 

■3190 : PRINT” date****#********4**»»********:*caupon" ; 

: -3200 PRINT” : . : *Ach*Vte* ; Achat . 4 : Vente. 

V ;.32TO PRINT" •♦••***4***l t ##**.#*.** : *****.***** ! *.******.**“ : : 7: - 

3220 CONBSMjEB, 17 
73230 FORP=iTO§e(I> 

3240 'IFF4CP><>""TTEWPRIMTTABC01 StJSING“&: ; : 8t“ ïF*IP)ï . 

3250 ÎFF* CPJ < >” -TTHENPRiNTTAB'tSI ' i " *” î USING”###” ï D CP) ï : 

- : 3260 ' IFF* CP) < >- "TREWRINTTAB Ç9Î ï "* " ï TAB ( 131 5 ” * “ ï USING"#####- ##" 5 A (P) ï 
; 3270 IFF*CPî<>””TœmîINTTABI22) ï "«"î TAB (31) ; "#**:G0T03340 ■ 

3280- ÏFB*(P)<>"”THEI«ÎINTTAB : CO)ïUSING"& : fe"ï6*CP) ; ,, 

3290 IFS* (P) < >“ "THENPRINTTAB (5) ï "*"ïTAB(9> ? ”*"ï USING"###” î E (P) ï 

3300 IFG* (P) < >" "TTEMPRINTTAB (13) ; ”*”;TAB(22) ; USING" ##•##.##“; B (P) ï 

3310 IFG* (P) < >” "THENPRINTTAB (31 > ; ” : G0T03340 

3320 IFH* (P) <>“ "THENPRINTTAB (O) ïUSING"*t &";H*(P)Î 

3330 IFH* (P> O" "THENPRINTTAB (5) î "*”;TAB(9> ï ”* u ïTAB(13î î ï TAB (22) ; ï TAB (31 ) î " 
*”ïU5ING”####.##";C(P) 

3340 ihHÎXTP ; . . . ■ 

3350 PRINT: PRINT" (F)in H : CONSOLE 

3360 GETZ*: ï FZ*= ” F " THENCOLOR , ,7,1: PR INT "g" : G0T02630 
3370 60T0336O 

3380 DIMVA* (50) , CD (50) ,NB(50> ,PA(50) ,PV(50) ,PR(50) ,PG(50) , CO (50) , PC* (50) , DO* (50) 

* CU (50) » TE* (50) 

3390 DXMDU* (50) , CR (50) , DA* (50) , CP (50) , TQ (50) , EV (50) , PL (50) , MV (50) , RR (3) , SS (3) , CC 


3400 DIMK (50) , A (50) ,B(5Q) ,C(50> ,0(50) ,E(50) ,F*(50) ,G*(50) ,H*(50) 


3410 RETURN 

.3500 REM" . 

3510 REM" CONSEILS" 

3520 . REM "- — — — 

3530 PRîNT"'g" 

3540 PRINT" CONSEILS" SPRINT 

3550 PRINT" 1— La 1* fois" s PRINT 


3560 PRINT” rentrer chaque VALEUR en ACHAT au” SPRINT 

3570 PRINT” PRIX DE REVIENT” : PRINT 

3580 PRINT” 2— Chaque début d’ année, rentrer le” SPRINT 

3590 PRINT" COURS de chaque valeur au 1/1”: PRINT 

3600 PRINT” 3— Par convention: SOUSCRIPTION = ACHAT ” : PR INT 

3610 PRINT” et ATTRIBUTION = ACHAT gratui t” : PRINT 

3620 PRINT” 4— Rentrer ACHATS et VENTES frais et ” : PRINT 

3630 PRINT” courtages compris” : PRINT 

3660 PR INT: PR INT SPRINT” (S)uite” 

3670 GETZ*: IFZ*< >”S"THEN3670 
3680 RETURN 

4000 X0PEN#4,YY* t _ tWT 

4010 INPUT#4( 1*18-17) ,NB<I) ,PA(I) , PV (I ) ,PG(I) ,C0(I) ,CU(I> ,CR(I) ,CP(I> ,TQ(I> ,EV(I 
) ,PL( I) ,MV<I) ,K(I ) , VA*(I) , PC* ( I ) ,D0*( I) , TE* (I ) , DU* ( I > 

4020 CL0SE44 
4030 RETURN 
5000 X0PEN#5» Y Y* 

5010 PRINT#5 (1*18-17) , NB( I ) , PA ( I ) , PV (I ) , PG (I ) ,C0 (I ) ,CU ( I) ,CR ( I) , CP< I > , TB< I ) , EV ( I 
) , PL ( I ) , MV ( I ) , K (I ) , VA* ( I ) , PC* ( I ) , DO* ( I ) , TE* < I ) , DU* ( I ) 

5020 CL0SE45 
5030 RETURN 
7000 PRINT "S" 

7010 PRINTTAB (5) ; "FICHIER ”;YY* 

7020 PRINTTAB (5) ; ” ======================== " 

7030 FOR 1=1 TON 
7040 G05UB4000 

7045 IF (PA (IX >0) * (PV (IX >0) : PA ( I )=PG ( I > 7 

7050 PG ( I ) =0: PV ( I ) =0* CO ( I ) =0: CU ( I ) =0: CR ( I ) =0: EV ( I ) =0: PL ( I ) =0: MV ( I ) -0: CP ( I ) =©* TQ ( 
I ) =0: DO* ( I ) ="-” : DU* ( I ) ="-” : TE* (!>="-" 


7060 G0SUB5000 

7070 DELETESTR* (CD (I > ) 

7080 NEXTI 

7090 PRINT: PRINT: PRINT: PRINT"Pensez a faire idem pour les autres.. 
7100 PRINT: PRINT: PRINT"PUSH ANŸ KEY. . ” 

7110 GETZ*: IFZ*=" "THEN71 ÎO 
7120 GOTO 2640 


Conclusion : 

Ce programme permet de travailler sans peine car toutes les sauvegar 
des de fichiers sont faites par le programme. 

Chacun peut l'améliorer selon son inspiration. 

Bon courage ! 

Guy Cottreel 





CARACTERES GRAPHIQUES 


Comme vous le savez, voire MZ 
possède un jeu de 5 1 2 caractè- 
res divisé en 2 parties. La pre- 
mière partie est presque totale- 


ment accessible au davier, la 
seconde est beaucoup plus diffi- 
cile à obtenir. 


Cette routine, en provenance d'un club alle- 
mand de Holzwickede va vous permettre de 


résoudre définitivement ce problème. Il vous 
suffira de taper CTRL J puis de taper au cla- 


vier la touche correspondant au code du carac- 
tère choisi pour accéder directement à ce jeu 
de 256 caractères graphiques. Un nouvel appui 
sur CTRL J vous ramènera au générateur initial. 
Tapez le programme joint, puis RUN. Tapez 
ensuite USR ($558B) ; vos 51 2 caractères sont 
maintenant accessibles. 

Si vous possédez une disquette ou un Quick- 
Disc, vous pouvez avantageusement insérer 
cette routine dans l'AUTO RUN en remplaçant 
le NEW de la ligne 20 par USR ($558B).‘ 
L'accès au second générateur se fera ainsi 
automatiquement dès la mise en route de votre 
MZ. 


10 FQRI=*558B TO *55DCs READAs POKEI , A 
20 NEXT ; END s NEW 

30 DATA *3E , *CD , *32 ,*DF, *05 , *32 , *EC , *05 , *2 1 ,*BC, *55 , *22 , *E0 , *05 


40 DATA *; 


, *CS 


50 DATA *22 
60 DATA *3A 


. *73 
*D8 


70 DATA *3A s *DC 


d-crcr 

ïf 5; -P 


*CB 


80 DATA *29 
90 DATA *F5,*3A 
*C9 , O , 0 


*00 

*55 

*55 

*E4 

*DC 


, *ED , *05 , *2 1 , * AC , *55 , *22 ,■ *6F , *00 , *2 1 , *B4 , *5!.: 


*C9 

*2F , *32 , *DB, *55, *C9 
*2F, *32, *DC , *55, *Ü9 

*3 A , *DB , *55 , *FE , *00 , *C8 , *CB , *DC , *C9 

*55 , *FE , *00 , *28 , *06 , *F 1 , *2F , *23 , *D9 , *77 „ *C9 , *F 1 „ *: 


7, *D9 , *77, 


TRAITEMEIIT DE TEXTES 


Plus qu'un véritable traitement de texte, ce pro- 
gramme doit être considéré comme un essai met- 
tant en œuvre quelques astuces propres au BASIC 
et certaines routines L.M. découvertes dans le 
Moniteur RAM. Le cœur de ce programme est un 
éditeur de textes assez puissant et d'un mode 
d'emploi très facile. 

Mode d'emploi 

Après le RUN, apparaît un menu sur la ligne supérieure et une surface 
de travail de 22 lignes de 79 caractères. 

Taper un texte 

Provoque l'apparition du curseur dans le coin supérieur gauche. Vous 
pouvez entrer votre texte. En fin de ligne, tapez CR pour venir en début 
de ligne suivante. Vous pouvez, à tout moment, déplacer le curseur où 
bon vous semble sur la zone de texte déjà entré et effectuer toutes les 
modifications désirées exactement comme sur une feuille de papier. 
Aucune validation par CR n'est nécessaire. Si le curseur arrive en bas 
de l'écran, le texte monte d'une ligne sans que la ligne supérieure soit 
perdue. Pour récupérer cette ou ces lignes, il suffit de monter le cur- 
seur sur la première ligne, le texte redescendra et fera réapparaître les 
lignes disparues. L'écran agit ainsi comme une fenêtre se déplaçant de 
haut en bas sur un rouleau de texte. Les modifications, insertions ou 


effacements de lettres sur une ligne s'effectuent avec les touches INST 
et DEL, à la manière de l'éditeur du BASIC. Il est également possible 
d'insérer ou d'effacer une ou plusieurs lignes par SHIFT-INST ou SHIFT- 
DEL. Dans ce cas, le texte situé sous la ligne remontera ou descendra 
d'une ligne selon la commande choisie. Les touches Fl et F2 permet- 
tent d'accéder à la page suivant ou précédant la page affichée. Toutes 
les commandes et touches sont à répétition automatique. A tout moment, 
le nombre total de lignes du texte, le numéro de ligne en cours et la 
colonne où se situe le curseur sont affichés dans le coin supérieur droit 
de l'écran. Toute erreur de manipulation provoquera un BIP de mécon- 
tentement. A n'importe quel endroit du texte, vous pouvez taper F3 pour 
revenir au menu. 

Effacer un texte 

Efface la totalité de la zone mémoire texte après une demande de 
confirmation. 

Lire un texte 

Demande le titre du fichier à lire, le lit sur le périphérique en cours et 
le place en mémoire. Pou r vous faire patienter, le nombre décroissant 
des lignes entrées apparait en haut et à droite. Pour visualiser ce texte, 
retourner au mode éditeur (1). 

Enregistrer un texte 

Envoie le texte créé sur le périphérique en cours sous forme de fichier 
ASCII séquentiel après avoir demandé un titre à ce fichier. 

Imprimer un texte 

Envoie le texte sur votre imprimante. Le seul formatage demandé pré- 
cise le nombre de lignes par page d'impression et la marge (haut et bas) 
de chaque page. 


-STY 



Quelques commentaires 

Pour que ce programme fonctionne, vous devez l'entrer sans les REM 
sous peine de MEMORY ERROR. Ceux-ci ne sont présents que pour vous 
faciliter la compréhension des différentes routines et y apporter d'éven- 
tuelles modifications. Pour cela, placez-vous en AUTO à partir de la ligne 
100, toutes les lignes utiles ont été numérotées selon ce principe, Ce 
programme peut être aisément modifié selon vos besoins ou vos désirs 
personnels, en particulier pour la routine d'impression qui peut être sen- 
siblement améliorée en fonction du type d'imprimante utilisée. 2 points 
doivent cependant retenir votre attention lors de toute modification : 

• La taille mémoire. La zone de texte commençant en $C000, la fin de 
la zone BASIC est fixée à cette adresse, il reste donc peu de place au 
programme BASIC. Toute modification devra laisser au moine 1500 
octets libres pour les variables du programme et les routines 
d'enregistrement-lecture. 

• Presque tous les sous-programmes appelés utilisent ou créent une rou- 
tine en Langage Machine, certaines d'entre elles sont parfois assez 
« pointues », il est donc fortement déconseillé de modifier l'une de ces 
lignes sans en avoir compris son fonctionnement. Dans le même ordre 
d'idée, sauvegardez immédiatement ce programme après l'avoir tapé. 
Une erreur de frappe pourrait, en effet, provoquer un irréparable accès 
de mauvaise volonté de la part de votre MZ. 

Sylvain Bizoirre 


20 ’ | T EX Y I 

30 'I (C) S. BIZOIRRE - LE SHARPENT IER I 

ÎOO GOTO 130 

iÿsli vT 

102 ’ I 2 Sous-programmes places en début de programmes pour augmenter la I 

103 7 | rapidité du GOSUB I 

TM:;?; 1 - . :2,-; ; Vpi 4 ^^ i 'ivT:::: 1 ' Z . : -a- r , = _ :; ; '2 ; -'y ; "t 

' jt 05;Tÿ Æs : i: : ' V £ ■ • f: L ;;; ; ; T ;T; : . ; 2 ■; ; 3?; 22 ' r v, ■ : I;/ 

106 ’ I Conversion numérique en 2 valeurs potables sur 3 bits I 
1 1 0 B= I NT ( A / 256 ) : C.=A- ( B * 256 ) : RETURN 

'T. : ; : ' Z . (Y ' ■ 2 

114 'I Affiche 1 ligne lue dans la mémoire texte t 


120 A=FNA(LI) :G0SUB110:P0KE*5771,C,B:USR(*5770) : RETURN 

■ ÿ-iaiiz : : - V ; V TV ■:;■■■ 

124 "I Initialisation variables I 
126 ’ < 1 

130 DEFKEY ( 1 > =CHR* (10) : DEFKEY ( 2 ) =CHR* (11) : DEFKEY <3)=C-HR*(12) : S*=SPACE* (80) 
1 40 POKE4B 1 A , *20 , *6 : I N I T " CRT : M3 ” : PALO , 5 : TEMP07 : C0NS0L.E2 , 23 : L I M I T4C000 
150 DEFFNA (LI ) =49072+ (LI*80) :R=0: GOSUB 1 120 

\i5gj ; ; j Y;":';: / ; : . ' y; i; 

154 ’ | Initialisation écran I 
1 60 BOX C û 1 0 , 0 , 6 1 9 , 1 1 , O : CURSORO , 23 : PR I MT *■ 6*5” 

170 CURSORO, 1 : PR I NT " — “ ; ! FOR 1 = 1 T07 : PR I NT " T "i : IMEXT: PRINT" " 


174 ’ I Menu I 
176 ’ « ' 

1 30 CURSORO , O : PR I NTCHR* < 6 > ; S* : CURSORO , 0 

190 PRINT" £13 Taper C21 Effacer C33 Lire 143 Enregistrer 153 Imprimer un t( 
63 Fin."; 

200 GETR 

2 1 0 CURSORO , 0 = PR I NTS* : ONRGOSUB230 , 1 070 , 850 ,910, 960 
220 GOTO 180 




de 1 


240 
250 
260 
262 
264 
266 
270 
272 
274 
2 76 
230 
290 


CURSORO, O: PRINT" CFI 3 Page precedente. 1F23 Page 
FOR I =2T023 : L I - 1 - 1 : CURSORO , I : GOSUB 1 20 : NE X T 
X = 0: Y=2: L.I = 1 : PRINTCHR* (5) s I FLT< 2THENLT= 1 
CURS0R55 , 0 : PR I N TL. T " L I G . " L I " COL . “ X " 


i vante. 1F33 Menu. 


’ I Sai < 


■ cia 


CURSQRX , Y ; GETR* 


’ 1 Caractère I 

IFR*<CHR* (30) THEN320 
I F X = 7 0 T H EN BE E F' : ELBE I FX=79THEN340 
POKEFNA ( L I > + X , ASC < R* > : X= X + 1 : PR I NTR* ; 
GDT0260 


:te 1 


314 ’ I Si la touche detectee n’est pas un caractère, saut a la routine I 
316 | correspondant au code ASCII de 1 a touche detectee. I 

-3 13 ’ - : : : : , v - y -4 .,7 

320 ONASC ( R* ) -8G0SUB6 1 0 , 780 ,810,180» 350 , 340 , 340 , 700 , 450 , 390 , 500 , 480 , 570 , 530 , 340 , 
630, 

330 IFR-0THËN26Û 

340 MUS I C " BOGBGBG " ; R=0 : G0T0260 

344 ’ | CR I 

350 : 1 FLI >200THEN 1 1 10 ' : 

360 X-~0 : L. I =L 1 + 1=1 F Y< 23THENY=Y+ 1 s ELSEPR I NT " 6S.Si" ; s GDSUB1 20 
370 I F LT< L I THENLT =L I 
380 RETURN 

382 3 r 

384 ’ | U Y - | : y 2Y 

386 ’ ‘ J 

390 IFLK2THEN1 110 

400 L I -=L I - 1 : I FY >2THENY=Y- 1 : G0T0430 

4 10 P0KE45709, *80, *B9, *1 1, 0, *BC, 1 , *80, *34, *ED, *B8s USR (*5700) 

420 CURSORO, 2: GOSUB 1 20 


430 PRINT "Si"; 

440 RETURN 

444 ’ | 6! I 

YSfMISîllS 



480 ÏFX< 1THEN1 1 10 

490 PR INT "S” ? X=X~1 : RETURN 

492 ’ r 1 

494 ME! 

496 ’ i J 

520 RETURN 

:35 ilY®^ 

524 ’ I INST I 


ïiSoSi&iiiYEiKilLiYS^ 

560 CURSORO , Y : GOSUB 1 20 : CURSORX , Y : RETURN 

562 ’ , -, 

564 ’ I DEL I 

566 ’ J 

570 IFX< 1THEM1 1 10 

590 P0KE45721 , C, B: B«79-XîP0KE*5727 , B, 0: PGKE4572A, *B0 
600 USR ( *5720 ) : POKEFNA ( L. I ) + 79 , 0 ; CURSORO , Y ; GOSUB 1 20 : CURSORX , Y : RETURN 
260.2 732 
604 I TAB I 

606 ’ i ' 

610 I FX >6 9 T HEM 1 1 1 0 

620 X = (I NT < X / 1 0 ) + 1 ) * 1 0 : RETURN 

624 ’ ) INSERT LIGNE I 
630 I FLT > 1 99THEN 1 1 1 0 

640 IFY=23THENCURS0R0, 23: PRINTS*; : G0T0670 
650 P0KE*5709, *80, *B9, *1 1 , 0, *BC: A= (23- Y) *640 

660 GOSUB 1 10! P0KE*570F, C, B, *ED, *B8: USR (*5700) : CURSORO, Y: PRINTSPACE* (80) 

670 A=49072+ ( LT *80 ) +79: GOSUB 1 10: P0KE*5721 , C, B: A=A+80: GOSUB 1 10: P0KE*5724, C, B 
680 ft= (LT- (LI-1 ) ) *80: GOSUB 1 10: P0KE*5727 , C, B, *ED, *B8s USR (*5720) : A=FNA (LI ) 

690 GOSUB 1 10: P0KE*5753, C, B,*21,C,B,*11,C+1,B,1, *4F , 0: USR (*5750) : LT=L.T+1. : RETURN 

692 •’ , , 

694 •’ I DELETE LIGNE I 

696 ' 1 J 

700 I FLT =L I THEN 1110 
710 I FY --23THEN740 

720 A=32768+ ( (Y+l ) *640) : GOSUB 1 10: P0KE*5709, C, B: A=A-640: GOSUB 1 10: P0KE*5/0C , C, B 
730 A= ( 23— Y ) *640: GOSUB 1 10: P0KE*570F, C,B,*ED, *B0: USR (*5700) 

740 CURSORO, 23: D=L I : L Ï=D+ (23-Y) + 1 : IFLT2LIG0SUB120: ELSEPRINTSPACE* (80) ; 

750 LI=D-‘A=FNA(LI) : G0SUB1 10: P0KE*5724, C, B 
760 A=A+80: G0SUB1 10: P0KE*5721 , C, B 

770 A- (LT-LI ) *80: GOSUB 1 10: P0KE45727 , C, B, *ED, *B0: USR (*5720) : LT=LT— 1 : RETURN 

:--Y77233/ ^ -:33- ; - - ■: : 2' " 

774 ’ I PAGE PRECEDENTE I 

776 ’ * J 

780 D=LI-(Y-2) : IFD<2THEN1 110 
790 LI=D-22: IFLK 1THENLI = 1 
800 G0TQ820 

302 ’ r 1 

804 ’ I PAGE SUIVANTE j 

806 ’ 1 ' 

810 D=LI+ (24— Y) : IFDXLTTHEN1 1 10: ELSELI=D 

820 F0RI=2T023: CURSORO, I : IFL.I >200THENPR INTSPACE* (79) : GQT0840 
830 GOSUB 120 

840 L I =L I + 1 : NEX T : L I =L I -22: X=0 : Y=2 : RETURN 

342 ’ , , 

844 ’ I LIRE UN TEXTE I 

346 ’ 1 ' 

850 GGSLIB860: A=49151 : LT--0 

860 CURSORO, O : INPUT" Titre du texte : TT*: TT*=LEFT* <TT», 16) : RETURN 

870 ROPEN* 1, TT*: INPUT# 1,NL:LT=NL. 

880 I FEDF ( # 1 ) THENCLOSE : RETURN 

890 INPUT# 1 , A*: FQRI=1T079: POKEA+I , ASC (MID* (A*, 1,1)) : NEXT 
900 CURS0R70, 0: PRINTNL" " : NL=NL-1 : A=A+B0: GOT0880 

902 ’ , 

904 =■ I ENREGISTRER UN TEXTE I 

906 ’ 1 1 

910 G0SUB860: A=49152: B=1 ! NL=LT 
920 WOPEN# 1 , TT* : PR I NT# 1 , NL : LT=NL. 

930 A*=” " : F0RI=0T07B: A*=A*+CHR* (F'EEK (A+I ) ) : NE X T 

940 PRINTttl , A*: A=A+80: CURS0R70, O: F'RINTNL" ” :NL=NL.-1: IFNL=OTHENCLOSE: RETURN 
: 950 G0TD930 

,. ...952 . ’ r — - 3 . ; 2 . 22 ,' '' 

954 ' I IMPRIMER UN TEXTE | 

956 ■’ * — — — i ■ 

960 CURSORO, C>: INPUT"Nombre de lignes par feuille : 66EB” » LF* 

970 CURSQR38, 0: INPUT"Lignes de marge (Haut, et Bas) : 3E”;LM* 

980 LF=VAL (LEFT* (LF4, 3) ) : LM=VAL (LEFT* (LM* , 3 ) ) 

990 CURSORO, 0: PRINTS*: CURSORO, 0: PRINT" Imprimante prête ? CCR 3 " ; : GETR* 

1 000 I FR*< >CHR* (13) THENRETIJRN 

1010 G0SUB1050:LR=L.F-(LM*2> :LM=(LM*2)+1 

1020 FORI=OTOLT : F0RJ=0T079 : A=PEEK. ( *CC>00+ ( I *80) +J > : I F A=0THENA=32 
1 030 PR I NT /PCHR* ( A ) î : NE X T : B=B+ 1 : I FB=LRGOSUB 1 050 : B=0 
1040 NEXT: RETURN 

1050 I FLM >OTHENFORK= 1 TOLM : PR I NT /P : NEX T 
1060 RETURN 

■ 1062 -'"r— — — ,. 

1064 ’ | EFFACER UN TEXTE i 
1066"'"' 1 ^ — : 1.: 

1070 CURSORO, 0: PRINTS*: CURSORO, 0: PRINT" Vous en etes sur ? (0/N) " ; : GETR* 

1080 IFR*<>"0" THENRETIJRN 
1090 GOSUB 1 140: RETURN 

1092 • r— 

1094 •’ I FIN | 

1096 •' i- : 1 

1100 POKE*B 1 A , 60 » 40 : I N I T " CRT : M 1 " : END 

V 1102 ■’ r-— 

1104 •’ I ERREUR I 

1 106- ’ t--— J 

1110 R=l: RETURN 


1114 ’ I Affiche 1 ligne de texte lue dans la mémoire texte I 

1116 ’ i J . 

1 120 P0KE*5770,*1 1 ,*0,40 ,*21 , *4E , 40 , * 19 , * 1 A, *CD, *AB, *5, *E5, *ED, *52, *E1 , *08,41^, * 
18, *F4 


1124 ’ I Serai 1 haut et bas de tout ou partie de l’écran I 
ii26 - — — — — — 

1130 P0KE45700 , *E , *CC , *3E , * 3 , *ED, *79, *DB, *E0, *21 , *80, *B9, *1 1 , *0, *BC, *1 , *80,434,4 


1134 ’ | Efface mémoire écran ou efface 1 ligne I 
1136 ’ 1 — — — — — — — _____ — 

1 140 P0KE45750, *3E, *0, *32, *0, *C0,*21 , *0, *C0, *1 1,41, *C0, *1 , *0, *3E, *ED, *B0, *C9 . 
1150 USR (*5750) 


1154 ’ | Replace les caractères d ’ 1 ligne de la mémoire texte apres INS ou DEL 

1156 ’ i — — _________ — — — : ..... . : 

1 160 P0KE*572.0, 421 ,40 , *0,411, *0, *0, *1 , *0, *0, *ED, *B0» *C9 
1170 RETURN 


V 


LM SUR MZ 


Dans celte sixième leçon, nous 
allons aborder 2 notions nouvel- 
les : Le saut relatif et les opéra- 
teurs logiques. Elles seront 
accompagnées d'un exemple 
d'application et vous permet- 
tront, ajoutées aux connaissan- 
ces déjà acquises, de vous lan- 
cer dans la programmation de 
routine graphiques à l'écran. 


1. LE SAUT RELATIF 

Nous avons déjà étudié le saut direct appelé JP 
qui permet un branchement, conditionnel ou 
non, à une adresse quelconque de la mémoire 
gérée par le Z80. Le saut relatif, appelé JR (Rela- 
tive Jump) effectue la même opération mais 
dans une portion de la mémoire limitée à 256 
octets. Pourquoi relatif ? Parce que ce saut per- 
met un branchement à une adresse comprise 
entre -126 et +129 octets par rapport au 
compteur de programme,.. Je vois que la trans- 
parente limpidité de ces explications ne provo- 
que pas, chez vous, le sourire satisfait de 
l'homme pour qui le Z80 n'a plus aucun secret. 

Alors passons vite à un exemple. 

Il existe 2 types de sauts relatifs : 

Le saut ascendant qui provoque un branche- 
ment à une adresse de valeur supérieure à 
l'adresse de l'instruction en cours. 

Si, à l'adresse 3080H, le Z80 rencontre cette 
instruction : 

3080 18 05 JR 05H 

En consultant la table (fig. 1), vous constatez 
que le branchement s'effectue à : Adresse de 
l'opérande (3081H) + 1 + opérande (05H) = 
3087H. Cette règle s'applique pour toutes les 
valeurs de sauts ascendants. 

Le saut descendant. Il provoque un branche- 
ment à une adresse inférieure à l'adresse en 
cours. Là, c'est un peu plus compliqué. Si, tou- 
jours à l'adresse 3080H, le Z80 rencontre : 
3080 18 Fl JR F1H 
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Le saut s'effectuera à : Adresse de l'opérande 
(3081H) - (FFH-opérande). 
soit: 3081H - (FFH-F1H) 
soit : 3081H - 0EH = 3073H 
A noter que la valeur de l'opérande, pour un saut 
ascendant est comprise entre 00H et 80H. Elle 
est comprise entre 81H et FFH pour un saut 
descendant (pour les intimes : Complément à 
2 de la valeur du saut). 

Le saut relatif est une instruction très souvent 
utilisée en L.M. Z80 ; si vous ne possédez pas 
d'assembleur, le meilleur moyen pour détermi- 
ner la valeur de l'opérande est de vous créer 
votre propre table de sauts, à l'image de celle 


de la figure 1, complétée vers le haut et vers 
le bas. Elle vous permettra de connaître immé- 
diatement la valeur de l'opérande en fonction 
de l'adresse à laquelle vous voulez vous bran- 
cher. Si vous possédez un assembleur, le tra- 
vail est considérablement simplifié : Il vous suf- 
fira de placer un LABEL à l'endroit où doit s'ef- 
fectuer le saut et de faire un JR LABEL ; le cal- 
cul de l'opérande se fera automatiquement au 
moment de l'assemblage. Vous pourrez égale- 
ment taper JR (+ ou -(déplacement en déci- 
mal ou hexa. Ex : JR $-15 ; mais attention, la 
syntaxe des assembleurs est quelquefois 
différente. 

Ouvrons une parenthèse au sujet de l'assem- 
bleur. Comme tous les programmes de nos futu- 
res leçons, la routine que nous allons étudier 
est écrite en assembleur. Si vous désirez pro- 
gresser dans la voie du L.M. cet outil va rapi- 
dement vous devenir indispensable, il est donc 
nécessaire de vous le procurer avant notre pro- 
chaine leçon qui traitera de l'utilisation de ce 
programme. 

Revenons à nos octets. JR, comme JP, peut être 
inconditionnel ou conditionnel : JR Z, XX ou JR 
NZ,XX en fonction du résultat nul ou non nul 
de l'opération précédente (Bit Z du registre F 
à 0 ou 1). JR C,XX ou JR NC, XX si l'opération 
précédente provoque un dépassement de capa- 
cité ou non (Bit C du registre F à 0 ou 1). 

Au fait, pourquoi avoir créé cette nouvelle struc- 
ture de saut alors que nous possédons déjà un 
JP beaucoup plus facile à programmer ? Pour 
2 raisons importantes : 

1. JR n'utilise que 2 octets au lieu de 3 pour 
JP et gagne 1/3 de temps d'exécution dans le 
cas de sauts conditionnels. Nous avons donc 
une économie de temps et de place mémoire. 

2. Un programme écrit avec des sauts relatifs 
est relogeable ; c'est à dire qu'il peut être 
implanté n'importe où en mémoire et fonction- 
ner toujours correctement sans modification. 

Cela est impossible avec JP dont les adresses 
de saut sont figées. 

Le saut relatif sera commenté dans notre pro- 
gramme. Cependant un tout petit exemple va 
vous permettre de tester son utilisation. A l'aide 
de l'utilitaire REGISTRES, tapez les codes 
suivants : 

CD IB 00 CALL 001BH 
28 FB JR Z,FBH 

Ce programme ne vous rendra pas la main tant 
que vous n'aurez pas tapé sur une touche. 
Quand vous l'aurez fait, à l'affichage des regis- 
tres, vous aurez, dans A, le code ASCII de la 
touche tapée. Au lieu de IB 00, vous pouvez 





tesN\* 




également essayer CD 1E 00 ; dans ce cas, le 
programme attendra que vous ayez tapé SHIFT- 
BREAK. La routine située en 001EH met le Bit 
Z de F à 1 si SHIFT et BREAK sont détectés 
au clavier. Si tout ce qui précède a été bien com- 
pris, nous pouvons passer à une des instruc- 
tions géniales du Z80 qui contribue à faire de 
ce micro-processeur l'un des plus puissants 8 
bits du marché ; il s'agit de DJNZ XX. 
Imaginons que nous ayons, par exemple, à mul- 
tiplier le contenu de A par une valeur X. Le Z80 
ne sachant pas multiplier, nous allons devoir 
procéder par additions successives et répéter 
X fois une routine d'addition. Instruction DJNZ 
est justement prévue pour ce genre de cas. Le 
registre B est utilisé comme compteur dans 
DJNZ, il faudra donc le charger par la valeur X, 
multiplicande de notre opération, ^opérande qui 
suit DJNZ effectuera ensuite B fois un retour 
au début de la routine d'addition sous la même 
forme que l'opérande de JR. Pas très clair tout 
cela si j'en crois votre œil dubitatif à la recher- 
che de l'exemple qui va tout arranger. Le voici. 
Nous voulons donc multiplier 95 par 157 et ran- 
ger le résultat dans HL. Nous aurons donc la 
routine suivante : 

C000 3E 5F LD A,5FH (5FH = 95D) 

C002 5F LD E,A 

C003 06 9DLD B,9DH (9DH = 157D) 

C005 19 ADD HL, DE 

C006 10 FD DJNZ FDH (saut en C005H) 

En résumé 

Ce programme place d'abord le contenu de A 
dans DE, il place ensuite le multiplicateur dans 
B puis il exécute l'addition HL=HL+DE. A cha- 
que passage par DJNZ, B est décrémente (B-1), 
si B est supérieur à 0, DJNZ provoque ensuite 
un saut à l'adresse indiquée par son opérande. 
Si B=0 le Z80 passe à l'instruction qui suit 
DJNZ. Nous avons donc 157 additions de DE 
à HL donc HL=DE*157 et le tour est joué ! 
Entrez cette routine dans REGISTRES, testez 
plusieurs valeurs de A (multiplicande) et B (mul- 
tiplicateur) et vérifiez le résultat dans HL. Vous 
ne pourrez que constater l'infaillibilité du micro- 
processeur. 2 remarques pour conclure sur cet 
exemple : si le multiplicande n'est pas dans A 
à l'origine, il est possible de supprimer la pre- 
mière instruction et d'entrer directement LD 
D,5FH. Secundo : cette routine étant exécutée 
par REGISTRES, les différents registres de tra- 
vail n'ont pas été initialisés puisque la routine 
d'initialisation de REGISTRES s'en charge ; en 
temps normal il faudrait s'assurer que les reg- 
sitres D et HL sont bien mis à 0 avant son 
exécution. 


2. LES OPERATEURS LOGIQUES 

Par opérateurs logiques, on entend les fonctions 
ET (and), OU (or) et OU EXCLUSIF (xor). Effec- 
tuer une opération logique entre 2 octets revient 
à additionner ou comparer chaque bit de ces 
octets selon les 3 grilles suivantes. 

AND 

1 AND 1 = 1 
1 AND 0 = 0 
0 AND 1 = 0 

0 AND 0 = 0 

Résultat = 1 uniquement si les 2 bits testés 
sont à 1 

OR 

1 OR 1 = 1 
1 OR 0 = 1 
0 OR 1 = 1 

0 OR 0 = 0 

Résultat =1 si au moins 1 des 2 bits est à 1 

XOR 

1 t XOR1=0 

1 XOR 0 = 1 
0 XOR 1 = 1 
0 XOR 0 = 0 

Résultat = 1 si les 2 bits testés sont différents. 

Les tests logiques s'effectuent toujours entre 
le registre A et un autre registre du Z80 ou une 
valeur numérique 8 bits. Lors de l'opération, 
chaque bit de A est testé par rapport au bit cor- 
respondant du registre ou de la valeur consi- 
dérée. Le résultat est ensuite rangé dans A. 
Exemple : 

LD A, 88H A =10001000 en binaire 
LD B,77H B= 01110111 en binaire 
L'instruction AND B donnera A=00000000 
donc 00H puisqu'en aucun cas, l'opération A 
AND B sur chacun des bits des registres tes- 
tés a donné lieu à un résultat positif. Vous pou- 
vez tester, à l'aide de REGISTRES, chacun de 
ces opérateurs avec différentes valeurs dans dif- 
férents registres ; c'est un excellent exercice 
pour l'assimilation de la notation binaire. 

Les opérateurs logiques servent le plus souvent 
à effectuer des tests sur le contenu d'un regis- 
tre ou d'une adresse précise par rapport à une 
valeur prédéfinie contenue dans A. Nous en étu- 
dierons une utilisation typique dans notre pro- 
gramme CARRES. A noter une particularité de 
ces opérateurs qui permettent à A de se tester 


lui-même, cela permet quelques astuces de pro- 
grammation. Par exemple, pour remettre le 
registre A à 0, il faut, à l'origine 2 octets : 3E 
00 (LD A,00H). Il est possible, grâce à un opé- 
rateur, de n'en effectuer qu'une : XOR A. Je 
vous laisse découvrir le mécanisme de cette 
instruction. 

LE PROGRAMME 

D'une inutilité inversement proportionnelle à 
son intérêt hautement pédagogique, CARRE 
représente une importante évolution par rapport 
aux précédentes routines proposées. C'est le 
premier à être véritablement structuré, compre- 
nant un programme maître et plusieurs sous- 
programmes. Entrez le en assembleur ou sous 
forme de codes Hexa puis lancez le par J (ou 
G) C000. Si vous n'avez fait aucune erreur, il 
doit afficher une suite de carrés de taille crois- 
sante, attendre quelques secondes et recom- 
mencer. Il est possible de l'arrêter par appui sur 
« ! ». Carre est tiré d'un manuel SHARP et légè- 
rement modifié. Son étude, instruction par ins- 
truction, aidée par l'organigramme (Fig. 2) va 
vous permettre de découvrir de nombreuses 
techniques nouvelles de programmation. Forts 
de ces enseignements, vous pourrez commen- 
cer à créer vos propres programmes graphi- 
ques... et à nous les faire parvenir... 

Ligne 6 et 7 : Le sous-programme du moniteur 
ROM situé en 001 2H (PRNT) permet l'affichage 
du codé ASCII situé dans A. Les codes de con- 
trôle sont également exécutés. Comme A con- 
tient la valeur 16H correspondant à la fonction 
CLS, l'appel de 0012H va donc vider l'écran. 
Ligne 8 : DE est chargé par la valeur 28H, soit 
40 en décimal. 40, c'est le nombre de caractè- 
res d'une ligne d'écran. DE va ainsi nous per- 
mettre de sauter une ligne quand nous le 
désirerons. 

Ligne 9 : HL est chargé par D000H qui est la 
valeur de la première adresse de la RAM Vidéo 
et correspond au coin supérieur gauche de 
l'écran. HL sera le pointeur écran. C'est aux 
adresses pointées par HL que s'afficheront les 
différents caractères. 

Ligne 10 : C contiendra le nombre de carrés affi- 
chés, pour commencer, il est donc chargé par 
la valeur 1. 

Ligne 11 : B prend la valeur de C. Le contenu 
de B servira à déterminer la longueur des côtés 
de chaque carré. Un petit rappel : Le fait de 
transférer C dans B ne modifie pas le contenu 
de C. C'est le cas pour toute instruction LOAD. 







Ligne 12 : Appel du sous-programme qui trace 
un carré de côté C à partir de la position HL. 
L'appel de ce sous-programme ne se fait pas à 
sa première adresse mais 3 instructions après. 
Ligne 13 : Appel de ATTENTE, sous-programme 
de temporisation entre l'affichage de chaque 
carré. Sans cet appel, l'affichage des 13 car- 
rés se ferait instantanément. 

Ligne 14 et 15 : Le coin supérieur gauche du 
carré suivant va se positionner 1 caractère plus 
bas et à droite par rapport au précédent. La ligne 
14 « pousse » HL de 1 caractère à droite, la 
ligne 15 descend HL d'une ligne en ajoutant DE 
soit la valeur 40D qui correspond au nombre 
d'adresses d'une ligne. 


Ligne 16 : A chaque nouveau carré créé, C est 
incrémenté (C+1). 

Lignes 17-18-19 : Elles servent à tester si le pro- 
gramme a affiché son dernier carré. Le contenu 
de C est placé dans A puis est comparé à ODH 
(13-1) carrés au total). Si le résultat n'est pas 
égal à 0 (CP effectue une soustraction fictive 
pour le voir et positionne les bits de contrôle 
en fonction du résultat) le programme boucle 
à la ligne 11 (PROG.2) et dessine un nouveau 
carré plus grand puisque C a été incrémenté. 

Ligne 20 : Si les 12 carrés sont affichés, la rou- 
tine PROG 3 crée une boucle d'attente où est 
inclus un test de détection de la touche « ! ». 
La durée de cette boucle est déterminée par la 


valeur entrée dans DE. Ici, 0400H correspond 
à environ 8 secondes. 

Ligne 21 : Début de la boucle. DE est 
décrémenté. 

Ligne 22 : Appel à un sous programme du 
moniteur que nous avons déjà utilisé, situé en 
001BH, équivalent au GET du BASIC. Au retour, 
A contient le code ASCII de la touche tapée ou 
0 . 

Ligne 23 : A est comparé à 21H soit le code 
ASCII de « ! ». 

Ligne 24 : Si A=21H, saut en 0000 qui rend 
la main au moniteur. 

Ligne 25-26 : Il faut maintenant tester si la bou- 
cle d'attente DE est terminée et, pour cela, tes- 
ter si DE=0000H. Dans ce cas les opérateurs 
logiques permettent de gagner du temps et de 
la place mémoire. D est placé dans A pour être 
testé. Ensuite un OU logique est effectué entre 
A et E, Si vous consultez la table de vérité du 
OU logique, vous constatez que le résultat placé 
dans A ne peut être égal à 0 que si A et E sont 
d'abord égaux à 0. Si ce n'est pas le cas... 
Ligne 27 : On recommence une nouvelle bou- 
cle par un saut relatif conditionnel (en fonction 
de Z) à PROG 3. 

Ligne 28 : Si DE=0000H, un JR au début du 
programme provoque une nouvelle exécution 
complète de celui-ci. Ainsi se termine le pro- 
gramme principal. 

Le sous-programme CARRE se compose de 4 
routines successives de construction identique. 
CARRE 1 affiche le côté supérieur et le coin 
supérieur droit. 

CARRE 2 affiche le côté droit et le coin infé- 
rieur droit. 

CARRE 3 affiche le côté inférieur et le coin infé- 
rieur gauche. 

CARRE 4 affiche le côté gauche et le coin supé- 
rieur gauche. 

Ligne 34 : Départ effectif du sous-programme. 
HL est déplacé d'un caractère vers la droite par 
incrément. 

Ligne 35 : A l'appel du sous-programme, B con- 
tient la longueur du côté du carré (en nombre 
de caractères). DJNZ provoque le décrément 
de B. Si celui-ci est encore supérieur à 0 la don- 
née de DJNZ est prise en compte et un saut 
relatif en CARRE 1 est effectué. 

Ligne 32-33 : A est chargé par le code d'affi- 
chage du trait horizontal puis le contenu de A 
est placé dans l'adresse pointée par HL. Petit 
rappel : Lorsqu'on travaille directement sur la 
RAM vidéo pour afficher des caractères, il ne 
faut tenir compte que des codes d'affichage et 
non des codes ASCII. 



Ligne 36 : Le côté étant dessiné, A est chargé 
par le code d'affichage du coin supérieur droit. 
B reprend sa valeur initiale qui reste contenue 
dans C ; puis un saut s'effectue en ligne 40. 
Ligne 40 : Début effectif du sous-programme 
CARRE 2 identique à carré 1 exceptés les codes 
d'affichage chargés dans A et la méthode de 
déplacement de HL qui « descend » par addi- 
tions successives de DE. 

Ligne 47 : Sous-programme CARRE 3. HL est 
décrémenté à chaque boucle puisque l'affi- 
chage du bord inférieur s'effectue de droite à 
gauche. 

Ligne 54 : CARRE 4. Pour faire « remonter » HL, 
on soustrait DE (40 caractères) à chaque 
boucle. 

Ligne 59 : Fin du sous-programme CARRE. Lors 
du retour au programme maître par RET, HL 
pointe sur le coin supérieur gauche du carré qui 
vient d'être tracé. 

Ligne 60 : Sous-programme ATTENTE qui crée 
une temporisation entre l'affichage de 2 carrés 
successifs. A et DE dont les contenus ne doi- 
vent pas être perdus pour la poursuite du pro- 
gramme maître sont sauvegardés dans la pile. 
Ligne 62 : DE est chargé par la valeur corres- 
pondant à la longeur de la boucle d'attente. 
Lignes 63-66 : Après décrément, on teste si 
DE— 0 selon la même méthode que celle utili- 
sée dans la première boucle étudiée. Si NON, 
saut relatif en ligne 63. Ce saut sera donc exé- 
cuté 2000H fois avant d'aboutir à DE=0. Dans 
ce cas, les 2 valeurs sauvegardées dans la pile 
sont rappelées et replacées dans leurs registres 
respectifs. A noter que, selon le principe de la 
pile la dernière valeur entrée est la première 
ressortie. 

Un dernier conseil pour conclure : 20 fois sur 
ton MZ remet ton programme. (Comment, je 
pirate I). Car vous devez avoir compris en détails 
la structure de ce programme et l'utilité spéci- 
fique de chacune de ses instructions. Si ce n'est 
pas le cas, n'hésitez pas à nous écrire pour que 
nous revenions sur les points obscurs qui insu- 
fisamment expliqués. Si vous avez tout com- 
pris, la suite du LM Z80 sera pour vous un jeu 
d'enfant... ou presque ! 

Sylvain Bizoirre 
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? PROGRAMME 

PRINCIPAL 
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6 

CÜOO 

3E16 

PROGU 

LD 

A ? 01614 

7 

C002 

CD 1200 


CALL 

0001214 

8 

C005 

1 12800 


LD 

DE? 002814 

9 

CO 08 

2 1 00 DO 


LD 

HL? ODOOOH 

10 

COOB 

OEO 1 


LD 

C? 1 

11 

COOD 

41 

PR0G2 s 

LD 

B? C 

12 

COOE 

CD31C0 


CALL 

CARRE 

13 

COU 

CD5AC0 


CALL 

ATTENTE 

14 

CO 14 



INC 

HL 

1 5 

CO 15 

19 


ADD 

HL? DE 

1 6 

CO 16 

OC 


INC 

C 

17 

CO 1 7 

79 


LD 

A? C 

18 

CO 18 

FEOD 


CP 

ODH 

19 

COI A 

20F 1 


JR 

NZ..PR0G2 

20 

C01C 

119001 


L.D 

DE? 00400 H 

21 

COI F 

IB 

PR0G3S 

DEC 

DE 


CO 20 

CD 1B00 


CALL 

00 1 B H 


C023 

FE21 


CP 

02114 

24 

C025 

CAOOOO 


JP 

Z ? 000014 

25 

C028 

7A 


LD 

A? D 

26 

C029 

B 3 


OR 

E 

27 

C02A 

20F3 


JR 

N Z ? PR0G3 

28 

C02C 

1 8D2 


JR 

PRÜG1 

29 



5 



30 
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31 

32 

C02E 

3E78 

CARRE 1 s 

LD 

A? 07814 

33 

CO 30 

77 


LD 

(HL) ? A 

34 

C031 

23 

CARRE s 

INC 

HL 

35 

C032 

10F A 


DJNZ 

CARRE 1 

36 

CO 34 

3E5D 


L.D 

A ? 05DI4 

37 

C036 

41 


LD 

B? C 

38 

0037 

1802 . 


JR 

$+4 

39 

CÜ39 

3E79 

CARRE2S 

LD 

A? 079H 

40 

C03B 

77 


L.D 

(HL) ? A 

41 

C03C 

19 


ADD 

HL? DE 

42 

C03D 

10F A 


DJNZ 

CARRES 

43 

C03F 

3E1D 


LD 

A? 0 1 DH 

44 

C04 1 

41 


LD 

B? C 

45 

C042 

1802 


JR 

$■+•4 

46 

C044 

3E78 

CARRE 3 s 

LD 

A ? 078H 

47 

CO 4 6 

77 


LD 

(HL) ? A 

48 

Ç047 

2 B 


DEC 

HL 

49 

C048 

10FA 


DJNZ 

CARRE3 

50 

C04A 

3E1C 


L.D 

A ? 01CH 

51 

C04C 

41 


L.D 

B?C 

52 

C04D 

1802 


JR 

$+4 

53 

C04F 

3E79 

CARRE4S 

LD 

A? 07914 

54 

CO 5 1 

77 


LD 

(HL.) ? A 

55 

C052 

ED52 


SBC 

HL? DE 

56 

C054 

10F9 


DJNZ 

CARRE4 

57 

C056 

3E5C 


LD 

A ? 05CI4 

58 

C058 

77 


LD 

(HL) ? A 

59 

C059 

C9 


RET 


60 

CO 5 A 

F5 

ATTENTES 

PUSH 

AF 

61 

C05B 

D5 


PUSH 

DE 

62 

C05C 

1 10020 


LD 

DE ? 02 00 OH 

63 

C05F 

IB 


DEC 

DE 

64 

C06Û 

7 A 


LD 

A? D 

65 

C06 1 

B 3 


OR 

E 

66 

C062 

20FB 


JR 

N Z ? $ -3 

67 

CO 64 

DI 


POP 

DE 

68 

C065 

Fl 


POP 

AF 

69 

C066 

C9 


RET- 


70 




END 






TABLEUR 


Le tableur proposé ne prétend 
pas rivaliser avec les program- 
mes équivalents du marclié. Il 

E osséde cependant de nom- 
reuses possibilités et peut, 
sans complexe, être une aide à 
la gestion d'une petite entre- 
prise ou d'un club sportif. 

Il se compose de trois programmes s'enchaî- 
nant mutuellement : TABLEUR, TABLEUR-1 et 
TABLEUR-2. 

Il est possible de créer la feuille de calcul élec- 
tronique, de la sauvegarder sur disquette, de 
la lire ou de la sortir sur imprimante. 

Nous allons décrire les actions des touches 
valides dans les différents modes. 

Les fonctions d'enregistrement, de lecture ou 
de modification du tableau sont suffisamment 
explicites pour pouvoir être utilisées directe- 
ment. 

Il faut remarquer que le listing fourni possède 
de nombreux REM permettant une étude faci- 
litée du programme. La suppression de ces 
lignes (dont les numéros sont terminés pour la 
majorité par 9) permet de gagner 1 ko en 
mémoire. 

Touches d'utilisation communes aux différents 
modes : 

? Affiche les explications 

F10 Changement de mode 

Fl Affichage du menu principal 

CLR Efface la case 

HOME Positionne sur la fenêtre 

CURSOR KEYS Déplace la case sur la fenêtre 
Flèches (SHIFT ou GRAPH + / ou ? : 

Déplace la fenêtre sur la 
feuille de calcul 

DEL Efface le dernier signe entré 

Touches particulières au mode TEXTE : 

lettre Ecriture dans la case pointée 
SFTLOCK Ecriture en lettres minuscules 
CR Saisie du contenu de la case et pas- 
sage à la ligne suivante 


BREAK Centrage du texte dans la case con- 
cernée et passage à la suivante sur 
la même ligne 

F2 Affichage de traits horizontaux 

Touches particulières au mode CALCUL : 

chiffre , ou . Entrée d'un nombre dans la case 
pointée 

+ - * / Calcul direct dans la case 
lettre suivie de deux chiffres Transfert dans la 
case du contenu numérique de la case ainsi 
nommée 

= Entrée d'une fonction dans la case 
<a> T ransfert d'une fonction déjà programmée 
(indiquer le numéro de la case origine) 
TAB Calcul automatique 
F2 Passage au mode modification des 
fonctions 

F3 Permet la remise à zéro des valeurs numé- 
riques, sans altérer les textes ni les fonc- 
tions programmées 


Touches particulières au mode OPERATION 
remarque : 

Les opérations sont repérées par un numéro 
d'ordre dans lequel le calcul sera effectué. On 
définit l'opération, non par le numéro de sa 
case, mais par son numéro (de 1 à 50). 
SPACE Déplacement de fonction en 

fonction 

SHIFT +RVS Modifie le sens de déplace- 

ment obtenu par SPACE 
CURSOR KEYSDéplace la fenêtre sur la feuille 
INST Permet la modification du 

numéro de l'opération 

CR Modification de la fonction 

programmée 

ECRITURE DES OPERATIONS DANS LES 
CASES 

Le numéro d'une case est considérée comme 
une variable. Il comporte obligatoirement une 
lettre suivie de deux chiffres (par ex : A08 ou 
F45) 

On peut effectuer les quatre opérations algé- 
briques + - * / entre ces variables ou entre 
ces variables et des nombres, par ex : 2* 
(A04 + 7/(B07 + D 1 2)) Attention aux parenthè- 
ses : pour un problème de place en mémoire 
il n'est pas fait de test sur la validité des for- 
mules écrites. 

Des foctions préprogrammées peuvent être uti- 
lisées dans les calculs ; elles doivent être pré- 
cédées pai@> . 



Huit fonctions sont utilisables, quatre pour les 
opérations concernant la ligne pointée par la 
case, quatre pour la colonne. 

Ce sont «SOML( )@MAXL( )et®MINL 
( )<§>M0YL ( ) pour les lignes 
@SOMC ( )@MAXC ( )@MINC ( ) et 
@MOYC ( ) pour les colonnes 
Elles permettent de calculer la somme, le maxi- 
mum, le minimum et la moyenne des valeurs 
contenues dans les cases. Ces fonctions pos- 
sèdent deux arguments, numéros extrêmes des 
cases concernées. 

Par exemple :©MOYC (06-1 2) calcule pour la 
colonne concernée la moyenne des cases de 
lignes 6 à 1 2 ; de même@SOML (A-L) cacule 
la somme sur la ligne concernée des contenus 
des cases des colonnes A à L. 


OPERATIONS SUR LE TABLEAU 

Il est possible de faire, pour l'ensemble du 
tableau les opérations suivantes : Effacement, 
permutation, insertion, suppression de ligne ou 
colonne du tableau. 


DEFINITION DU GADRE 

Afin d'avoir sur l'écran des lignes ou des colon- 
nes de texte, ou de valeurs numériques inter- 
médiaires, il est possible de fixer, en début de 
tableau une ou deux lignes ou colonnes, (lignes 
01 ou 01 et 02, colonnes A ou A et B) et une 
ligne (ou colonne en fin de fenêtre). 


DERNIERE REMARQUE 

En début de programme la fonction Fl est 
affectée à RUN100 permettant de démarrer le 
programme si une erreur survient 
Bon courage 


Jean Millet 
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TABLEUR 


REM*#*###*#******#####****#********* 

O REM**#*###### TABLEUR ********:****** 

O REM******** Jean Millet #****##***#* 

O REM****** Septembre 1985 *********** 

O REM*****##**###**#*#*##***###*#*#*** 

10 CONSGLEC80,N,S3,24: DÏMA* <26, 99) , F* <26, 99) , MO* (1 > ,ÜP*<50) ,V(15i) ,0P<20> 

15 L.IMIT*E4FF:'TEMP07: 1=0: j=o:K=0: X=0: Y=0: Y0=0: X0=Qî C0=1 s LO=l : LM=1 : CM=1 :CA=1 : LA= 
1 : CB= 1 s LB=1 : CD=0: LD=Qs CF=0: LF=0 

16 C*=5TRING* ( 11 — 11 , 79) : CURSORO, 5: PRINTC*: F0RI = 1T05: READR*: PRINTTAB (15+3* (1 = 1) ) SR 
4>s NEXTs PRINTC*: PR INT "44 Je charqe le programme machine. ... "sDEF KEY < 1 ) =RUN100"T 

22 MD* IO) = "nn" : MO* ( 1 ) ="M *E»*glW : T*=" — " : C0*=STRINB* <CHR* (31 ) ,9) 

30 RESTORE 100: READN2. NB : FOR I =0 TONB : READN : P0KEN2+I , Ns NEXTs CHAIN" T ABLEUR- 1 " 

52 DATA" I ' I 1 I I II' I I I I I " ' " J ' J * ' 

100 DATA25088, 272 

1 i 0 DATA 17,0, 240 ,42,19,0, 237 ,75, 27 ,0,205,104,12,18,35,19,11,120,177,32, 245 , 20 1 , 
17,0,240,42, 19, O, 237, 75, 27,0, 26, 205, 122, 12,35, 19, 11, 120, 177,32,245,201,2.37,91 
120 DAT A 1 57 , 7, 205 , 83 , 1 2 , 237 , 75 , 85 , 98 , 229 , 1 97 , 243 , 2 1 9 . 232 , 203 , 255 , 2 1 1 , 232 , 62 , 0 , 1 
19, 35, 16,252, 219, 232, 203, 191 ,211, 232, 251 , 193,225, 13, 200, 25, 24, 227, O, 0,0,0, 3, 63 
130 DAT AO, 3, 1 B, O, 0, 0, 237 , 91 , B8, 9B, 122,214,9,79,6,0,38,2, 107,205,86, 12,229,209,6 
2,20. 33,9,0,205.216,98.61,200,24,246,237,91,88,98, 122,214,9,79,6,0,38,21,123 
1 40 DATA 1 30 ,61,111, 205 ,86,12,229, 209 ,62,20,33,247, 255 , 205 , 244 , 98 , 6 1 , 200 ,24,246, 
237, 91,91, 98, 99, 46, O, 205, 86, 12, 122,61 , 229, 209, 1 , 80,0,33,80,0, 205,216, 98,61, 200 
150 DATA24, 246, 237,91 ,91,98, 123, 130,61 , 103,46, 79, 205,86, 12, 122,61 , 229,209, 1,80, 
0 , 33 , 176, 255 , 205 ,244,98,61,200,24, 246 ,25,213,19 7 , 2 45 , 243 ,219,232, 203 , 255 ,211 
160 DATA232 , 237 , 176,203, 191,211,232,251 ,241 , 19 .'09,33,80,0,25,2.29,209,201,25,2 

13, 197.245,243,219,232,203,255,211,232,237, lfi>4, .'■> 19 1,211,232,251,241,193,209 

1 70 DATA33 ,176,255,25, 229 , 209 , 20 1 , 0 


TABLEUR 1 




****•*>" s :s (3U8IJB995Ï PR £ 
: BOT 09 70 


0 REM* *##*#**## TABLEUR-: 

10 GOSUB 7580 

100 PR INT" Mi 4 " : CURSÜRIO, 0: PR1N1 "♦ T A B I... E U R ♦" S VAB (60) S "Mode: ” : CIJRSÜRO, 1 ”« PR1N 
T"F1 : Menu gàl " 5 TAB ( 70) S "F10: Mode" : 80SUB1000: (30T01600 

129 REM— ENTREES- 

135 MQ=~ < M0=0 ) 

1 40 CL1RS0K66 , 0 : PR 1 N T MD* ( MO ) : PR 1 N T I AB ( 1 2 ) S SPAÜE* ( 58 ) : CURSORO , .22 : PR 1 N TSPACE* ( 79 ) : 
GOSUB 1 320: UNM060 T 02000 

iv, .1 49' ' I :REM--R-~-““~ TËX . ■■ VT/:. ■: 

150 C=CA: L=LAs M0*=" A" : CURS0R13, 1 s PRTN T "F2: Tr ai t " î TAB (47) S "BREAK: Centrage texte" 
'2 lO 80SÜB 1330: XX^O S A*= " " Y-® VTy'yVV^vyV; 

22<> 80SUB980: 1 PR=63 I HENRES1 0RE2OU2O: B0SUB1 55o:b0T0220 

222 I P ( R > 1 28 ) * ( R< 1 33 ) TH ENGOSUB 1 550 : BOT 0220 

223 JF (R >3 1 ) * ( R< 1 60 ) THEN3 1 0 

224 I FR< 5 T HENGOSUB .1 490 s BOT0220 

225 1 F < R= 1 0 ) + ( R= 1 4 ) ÎHENPRINTR*; :B0TÜ220 

230 1FR=1 I HENX =0: R=1 : 808001490:8070220 

231 1 F ( R=7 ) * (XX>0> THENA*=LEF I * (A*, I.EN ( A*) -I ) U'RINI : XX=XX- 1 :<)G 102 Vo 

232. IFR=1 1THENA*=SPACE* ( (9-LEN(A*> > / 2 ) +A* : R=3 : GOSUB 1 490 : BOT 02:20 

233 IFR=6THENF* <C, L) : A*(C, L) : B0T0210 

235 ONR - 1 560 TOI 600 , 350: 1 FR=57 HEN8QSUB97 0 : G0TÜ220 
74o I F K=25 T HENCA-=L : I. A=L : 00 1 0 1 30 
300 MUSIC" ABC" : GO (0220 

309 REM -SAISIE CASE—--— 

310 ■ IFXX=OTHENA*="" ' 

312 F'R1NTR*S.: A*=A*+R*: X X = X.X + 1 : 1FXX=9 T HENR-3: B0SUB1490 
'■ J 4 G0IU22O 

349 REM— SAISIE TRAIT- , 

Wv: CURS 0 R 5 , 23: PRINT" 1 rai t en 1 iqne 7 : "S : B0SUB990: 1 =V: CIJRS0R30, 23. s .PR IN I "de 

; . Gi l-il JB985: 7-1 o. (- R1N7 - S . GOSUB 98‘ i- 1 T J -Ro I Ht N > u 5 
353 FOR I = V TORO : A* ( I , T) = "¥” : F* (7 , 1) = "T ",S NEX 1 S LM=LH+ (LM"T> * ( f .>LM) : CM=LM+ (LM-RO) * ( 
RO>CM> : J=T— LOS GOSUBl-047's I FJ=YTHENGOSUB 1327 : G0SUB1500: Q0T0220 
355 GOSUB 1290: 60 TÜ220 1 

969 REM SIJB— SAISIE POSITION- 

970 CURS0R5, 23: PRINT"Posi tion ? (Colonne PUIS liqne> 

INT" "ï sfi030B990: TP <F*<R0,V) " " > * (F * (Ro, VI MCI*) THENHUSJC'F 

9 74 X=RO-DO: Y=V-L0: GOSUB 1290 : RETURN 

979 REM— - -SAISIES— - 

980 GETR* : T FR*= " " THEN980 

981 R=A3C < R* >: RETURN 

982 G0SUB980: IF'<R'<48>'+ <R>5.7> THEN982 

983 PRXNTR*: : RETURN 

985 (30SUB980: 1F (R<65) + (R>90) THEN9B5 

986 F'RINTG'*; :R0=R -64: RETURN 

98 7 G0SUB982 : V*=R* S G0SUB982: V*=V*+R* :::V=VA1^(:V* ) : RE 1 URN . ' 

79 o U0SUB98?: If (7 I 'in 7 Loti i ) I HFNFR] N I " *»*» î • OUI 09 /o 

991 RETURN 

995 G0SUB985» IF (R0<C0) + <RO»CO+LX > THENPR.INI "*• *»" T* Gp 1 099,..< 

996 RETURN'' 

999 REM— SUB --AFF. I ABLEaU— - : 

1 000 GOSUB 1565: G0SLJ81 100 : GCJSUEU 200 

1002 IFLDTHENF0R3 = 1 -LOTOLD-Lo: CURS0R3, 2+J+L.O* BOSUB1.048: NEX T 
1004 FORJ— OTOLiYî IFJ+L.O>LM'rHENJ=LYï GOT01007 : 

1006 GOSUB .1047 

1007 NEXTJS 1F:LFTHENJ=LF-L0 y 
1009 CURB0R3, 20: GOSUB 1048: RETURN 

1044 REM -SUS — AFF. LIGNE J.04LY — 

1045 0*=RIBHT* < "0" +STR* (J +L0) , 2) : CURSORO, 3't-J+LD:G0SUBT215 
1047 CUR80R3, 3+J+L.D 

. 1048 PRINT"*A" : : ï FCD THENP OR i = 1 -ÇOTOCD-ÇO s GOSUB 1.080 s PR 1 N I A*« « NEX I 1 

,1050 Ff.iRI=0T0L..X s IF J. +CO>CMTHEN t=LX* GOTO 1053. 

1 052 GOSUB 1 080 : PR 1 NT A* ï 

1053 NEXi:i: : IFCF* (LO+JOLM) THENI=CF-C0-64s GOSUB 1080 s FRI N I 1 AB (66) : " I " ”, A* 5 
1055 PRINT:PRIMT"«-1.I I " 8 RETURN 

1057 REM —SUS — AFF, COLONNE' 'J O-H-X 

1058 FOR j=OTO :i s CURSOR'7+9 * < I +CD > , 2+ 1 9 * J * PR t NT CHR# < 64+ 1 +C0 > : NEX I J . 

1 060 CURSORO , 3 : I FLD T HENFOR J = 1 -L.OTOLD-LO : GOSUB 1 080 : PR 1 N T "T'AB ( 3+9 * < .ÇD+ ;1 > ) ! A* : NE X T 
1 066 FORJ =0T OLY : I F J +I....0 .H..MTHEN J =L Y : GO TO 1 070 
1068 GOStlBiOBO: PRINTTAB <3+9* (CD+I) ) 5 A* 

1070 NEXTvî : IFLFTHENJ=LF-L.O: GOSUB 1080: CURS0R3+9* <CD+I ) , 20: PRINT A* 

1072 RETURN 
1O0O A*=A*<I+CO, J+L.0) 

1081 1 F A*= " " THENA*=SPACE* ( 9 ) 

1082 IFA*="¥"THENA*=T* 

1083 RETURN 

. 1099 REM <9UB AFF. CABRE 

1 100 F0RJ=0T01 : CURSORO, 2+19* J s PRINTSTR1NG* < , 79) s CURSORO, 2+ 1 9 * J s I FCDTHENFOR T= 
l'T'OCD: PRINTTAB <9* 1—2) S CHR* < 192+1 ) S sNEXTl 
1 1 05 FORJ. -OTOLX « V-CO+1 : PR ï NT 'TAB ( 7+9* ( I +CD) ) 5 CHR* ( 64+V > *, '■ NEX T I : IFCFWENPR I NTT AB ( 
70) S CHR* < 128+CF) 

1110 NEXTJs RETURN 

1200 CURSORO, 3: IFI.DTHENFORJ = lTOLDs C*="S9" +CHR* .(176+.J ) s .G0SIJB1 2.15: NEXTJ. 

1.205 FÛRJ=OTOLY : C*=RIGHT* < ,, 0"+STR* (LO+J ) , 2) : GOSUB 12 15: NEX'I J 
i 2 1 0 I FI...F THENC*=CHR* < I NT < L.F / i 0) + 176) +LHR* < LF- 10*1 N 1 < LF / 1 0 >+176): GOSUB 1215 
1212 RETURN 

1215 PRINTC*5 " I "« TAB (76) ï " I "îC*: RETURN 

1289 REM SUB -AFF. CURSEUR Xv- 

1290 GOSUB 1327 
1300 GOSUB 1 320 

1305 C=C0+X : L=L.0+Y : A*=A* (C, L) : GOSUB 1 3219 
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1534 X=I-CO: IFX>=0THEN1538 

1536 CO=CO-1 s X=X + 1 * USR (*62'7E) : I=Os B0SUB105B: IFX<0THEN1536 
1538 C=CO+X:L=LO+Y* GOTO 1330 
1540 MUS IC" AA " : GOTO 1 53B 

1549 REM SUB— DEP. FENETRE — * t-M 

1550 GOSUB 1 565 : ONR- 128B0T0 1552, 1556, 1558, 1561 
1 552 L0=L0+L Y+ 1 s LO=LO+ < L0-99+L Y ) * < LO >99-L Y ) 

1 554 Y=Q: GOSUB 1 000 : L=LO- 1 s GOTO 1 500 

1556 L0=L0-LY-1 : L0=L0+ (LO-LD-l ) * (LOCLD+l ) : GOTO 1554 

1558 C0=C0+LX + 1 s CO=CO+ (C0-26+LX ) * <C0>26-LX ) 

1 559 X =0 : GOSUB 1 000 : C=CO- 1 î GOTO 1 5:20 

1561 C0=C0-LX-1 : CO=CO+ (CO-CD-l ) * (COCCD+l > : GOTO 1559 

1562 REM SUB — CLR FENETRE 

1565 CURSQR3, 3: P0KE*6255, 18: P0KE*6256, 73: USR <*6220 : RETURN 

1599 REM AFF. MENU PPAL. 

1600 GOSUB 1 320 :FE=0: RESTQRE20000: GOSUB 1350: 0NRG0T0140, 7500, 5000, 6000, 1630 
1605 L I M I TMAX : C0NS0LEC40 , SO , 24 , N: PR I NT " <HMJ TABLEUR EST FINI": END 

1629 REM AFF. OPERATIONS 

1 630 X 1 = X : Y 1 = Y : GOSUB 1 320 : GOS UB 1 400 : SWAP " TABLEUR -2 " s GOTO 1 600 

1999 REM CALCUL 

2000 C=CB: L=LE<: MD*=”N" : CURSQR13*, 1 : PRINT"F2s Operati on s" ; TAB <36> ? "F3« RA2 GOSUB 
1330 

2090 W=0:V=0: GOSUB 1327 

2100 G0SUB980: IFR=63THENFE=1 : FT=1 : R*="**CALCUL DIRECT#*" : REST0RE20010: GOSUB 1 350 
: FT=1 * R*=" * «OPERAT I CINS* * " : GO SUB 1 355 : G0T02 1 00 
2110 IF <R>47> * <R<58> THENC*=" : " : G0T02300 
2112 I FR< 5THENG0SUB 1 49Ï.5 : G0T02 1 00 

2115' ONR -60B0T 02508 s I F ( R=46 > + < R=44 > THENC*= " ï " : R*= " , " : W= 1 : G0T02300 

2120 IF <R>41 ) * <R<48) THENC*=R*: R*=" " : V=- <R=43) -2* <R=45) -3# <R=42) -4* <R=47) : G0T023 

00 ■ . ■ . ■ 

2135 IFR=27THENCURS0R50, 22: PRINT"Cal cul s en cours " s G0T03000 
2140 I F < R > 1 28 ) # < R< 1 33 ) THENGOSUB 1 550 : G0T02090 

2 1 50 ONR- 1 5G0T0 1 600 , 3260 , 2250 : I FR=6THENF* < C , L > = " " : A* < C , L ) = " " : GOSUB 1 300 : GO T 02 1 00 

2160 IFR=T5THENG0SUB970: G0T02100 

2165 0NR-63G0TO2485: IF <R>64> # <R<91 1THEN2210 

2170 I FR=25THENCB=C : L..B=L : GOTO 1 30 

2200 G0T02100 

2209 REM TRANSFERT CASE 

2210 0URSÜR50, 22: PRINT"Case a transférer " : CURS0R6 , 22: PR INT" <- 

4: GQSIJB987S IFF* <R1 , V) ="N"THENA* <C, L) =A* <R 1 , V) : F * <C, L) ="N" 

2215 GOSUB 1 300 : G0T02090 

2249 REM R A Z 

2250 X 1 = X : Y 1 = Y : GURS0R35 , 1 : PR I NT " » FORC= 1 TOCM : FORL= 1 TOLM : I F F * < C , L ) = " N " 1 

UENA* < C , L ) GOSUB 1 330 

2255 NEXTL, C: GÜSUB3460* X=X 1 : Y=Y1 : 8DSUB1300: G0T02000 

2299 REM ENTREE NOMBRE 

2300 CURS0R50, 22: PRINT"Val eur a compl eter . " : CURS0R6,22: PR I NIC* 5 " ";R*?:A*=R* 

2305 G0SUB980 : I FR= 1 3THENG0SUB2400 ï F* < C , L. ) = " N " : GOSUB 1 330 : GÜT02090 

2310 IF (R >47) * <R<5B> THENPRINTR*! : A*=A*+R*: G0T02305 
2315 IFRC5THENG0SUB2400C F* <C, L) ="N" : G0SUB1495: G0T02090 

2325 IF <R=7> # <LEN <A*> >0) THENA*=L.EFT* < A*, LEN (A*) -1 > : PRINT"*» *»" : : G0T02305 
2330 IF < <R=44) + <R=46) ) * <W=0) THENPRINT" . "! : A*=A*+". " : W=1 : G0T02305 
2335 0NR-5G0T02090: IFR=26THENPRINT"00" : : A*=A*+"00" : Q0T02305 
2340 MUS I C " FEF " : G0T02305 

2399 REM SUB— CALCUL DIRECT- 

2400 A= VAL ( A* ) : B=V AL < A* < C , L. ) ): 0NV+1.G0T02425, 2405, 2405, 2415: A=B /A: GOT 02425 
2405 A=B~ <V=1 ) #A+ < V=2) *A: G0T02425 

" ' 2415 A=B*A 

2425 A*=STR* ( INT < 100#A+, 5) > : IFA*="0"THENA*="000" 

2427 A*=L.EFT*<A*,L.EN<A*) -2)+". "+RIGHT* <A*, 2) : A* <C, L) =RIGHT* ( " "+A*,9) :R 

■■■■ETURN' 

2479 REM TRANSFERT FONCTION- 

24B5 CURS0R50, 22: PRINT"Foncti on a tr an s-fer er ": CURSQR6, 22: PRINT" <- S ";:G0SUB985: 
PRINT" " ! : G0SUB987 : R*=F* < RO , V ) : I FLEN < R* ) < 2THENMUS I C " DFRRR " : G0T02090 
2490 CURS0R8 , 22 : PR I NTM ID*<R*,2,LEN<R*>-2) 

2499 REM ENTREE FONCTION 

2500 G0SUB2507: IFERO0THEN2090 

2505 R= VAL < OP* < 0 > ) + 1 : A* ( C » L > = " -? "+RIGHT* < "0"+STR* (R) ,2) +" — " 1 F* <C, L) =F*: OP* < 
R) =RIGHT* < "O" +STR* <C) ,2) +RIGHT* < "0"+STR* (L) , 2) : OP* <0) =STR* <R) 

2506 B0SUB1300* G0T02090 

2507 CURS0R50 , 22 s PR I NT " En t r ez la fonction " s CURS0R6 , 22 : PR I NT " = " ? : INPIJT " " 5 R* 

2508 R=0: F*=" < " * F0RI = 1T040: C*=MID* <R*, I, i) : IFC*< >" "THENF*=F*+C*: R=R~ <C*=" <" ) + < 

C*=") " > '• 

2510 NEXTl:F*=F*+”> ":ER=<F*=" <)"> +R: RETURN 
2999 REM SUB CALCULS 

3&00 X 1=X s Y1=Y: FBRK=1T0VAL (OP* <0> > s G0SUB3500: GOSUB 1 325: PRINT" = " 5 OP*: ÜP*=" < " + 
0P*+ " ) " '■ • 

3005 J=0: V*=" " : P0=0« PV=0 

3010 IFJ=LEN (OP*) THENA=V < 1 ) : G0SLIB2 425: G0TO3060 
3015 J=J + 1 s R*=MID* (OP*, J , 1) :R=ASC(R*> 

3020 IF (R>64> # <R<91 ) THENV=R- 64 : R= V AL ( M I D* < OP* , 0 + 1 , 2 ) ) : V*= A* < V , R > : J = J +2 : GD T 030 1 0 
3022 IFR=64THENV*=" " : G0T03200 

3025 IF ( (R >47) # (R<58) ) t- <R=46> THENV*=V*+R*: G0T0301 0 
3030 TFV*< >" "THENPV=PV+1 s V <PV) =VAL <V*) : V*=" " 

3035 IF (R=42) + <R=47> + <R=40) THENP0=P0+1 : OP (PO) =- (R=42> -2# (R=47> -5# (R=40) : GOT 030 1 

0 

3040 IF <R=43) + (R=45> THENGÜSUB3100: P0=P0+1 : OP (PO) =*- 3* (R=43)--4* (R=45) :G0TD301O 
3045 I FR=4 1 THENGGSUB3 1 00 : I FOP ( PO ) =5THENPa=P0- 1 : G0TC130 1 0 
3060 GOSUB 1330 


3080 NEXTK 

3085 X»X 1 s Y»Y1 a BOSUB 1 290 « B0T0209Q 

3099 REM— 9UB-—CALCUL- — — - 

3 1 00 I F ( PQ-Ü > + < OP < PO > “5 > THENRETURN 

3 1 05 ONOP ( PD ) GO TT) 3 1 11 , 3 1 1 2 « 3 1.1 3 « V < PV- 1)»V( PV- 1 ) -V < PV ) « (3ÛT03 1 1 5 

3 111 V (PV-i ) «V ( PV- 1 > * V (PV > « 0DTO3 1 1 5 

3112 V < PV- 1 ) “V ( PV- 1 ) /V < PV ) 5 0OTO3 1 1 5 

3113 V < P V- 1 > - V ( P V- 1 > + V ( PV ) 

3 1 1 5 PV™PV- 1 5 PO-PO- 1 s (301-03 1 00 

3 1 90 DAT ASDML. , MOYL , MAX L , M I NL , SOMC , MOYC , MAXC , M I NC 

3200 J «J + la R*»M ID*( OP# , J , 1 > a I FR*< > " ( " ï HENV*»V#+R* » BD V03200 
3205 REST0RE3 1 90 8 F0RFC-0T07 a READR# a I F V#< >R*THë!NNë', X T: S STOP 
3208 V*»»" 

3210 J»,J + 1IR*«MID*(DP*,J, 1>« IFR*<>"> " THENV*»V*+R* « 0OTO32 1 0 
3215 S»0aNB»08Fi«INT <FC/4) s FC«FC~4#Fli R-IO^IO* ( (FO-2) - (FC»3) ) a ONF 1(30103230 
3220 J 1 *L • FOR 1 1 «ASC ( V# ) -64T0ABC < R I BHT# (V*,l>> -64 a A*»F* ( I 1 , J1 > * I FA# < > " •• THENV«ASC 
(A#) s IF (V»78> + <V»40) THENONFC+ 1 GQ8UB3240 « 3245, 3250, 3255' 

3225 NEXTtV*»STR* (R> s BDT03010 

3230 TT-Ca FORJ 1 «VAL. ( LEFT# ( V# , 2 > > TOVAL, (RIBHT# C V#, 2> >"'i'A#»P* ( 11,3 T) s TFA*<>" " THENV» 
A8C (A#) t IF <V»78) + < V-40) THENONFC+10Û8UB324O, 3243, 3250,3255 
3235 NËXTa V#»STR# ( R) a B0T03010 
3240 R-R+VAL (A# < I 1 , J 1 ) ) s RETI.IRN 
3245 B“S+VAL (A# < I 1 , J 1 > > s NB-NB+1 a R-B/NBl RETURN 

3250 NB*VAL(A#(U,Ji> > s I PNB >RTHENR»NB 

3251 RETURN 

3255 NB«V AL < A* < î 1 , J 1 > > a I FNB< RTHENR-NB 

3256 RETURN 

■:'?:-3259'': : F:ÈI'fc;^ 

3260 CUR80R 13» H PR INT “ —Hlllil 'Il T iiai#lir V T *X1»X«Y1“Y« SS»0 « 0Q8UB 1 320 a 0OSUB 1 327 

3300 KM-VAL (OP# (0) > « IFKM-0THËN30BS 

330 1 808UB3460 # K»0 

3302 K-K+l+2* (88“1 > a K-K+KM# UOKM) -KM* (K< 1 > 

3305 0O8UB 1 327 s 80SUB3500 a 0OSUB 1 330 a CUR9QR6 , 22 a PR I NT " * " 1 OP * 

33 1 0 I30BIJB9B0 a 1 FR< 5THENB08UB 1 320 « 80T03S 1 S 

33 1 5 ONR-40OTO3S70 , 3540 a ONR- 1 280T03450 a ONR-70OTO355O a I FR«l 2THEN88» ( 89-0 ) 

3322 IFR-27THENX-X 1 «Y-Y1« BOSUB 1320 a CURSOR 1 3 , 1 a PR I NT " F'2 a Dp er at i on s " a G0T02135 
3330 I FR-6STHENRESTORE20 110a 0O8UB 1 350 a 0OTO33 1 0 
3400 B0T03302 

3450 0O8UB25O7» IFERO0THEN3302 
3455 F# < C , U «F# a 00103302 

3459 REM* SUS- — AFF ï CHABE OF'ER , 

3460 FORK» 1 TOKM a 0O8UB35 1 Oa A* (C, L) «" -? " +R IBM 1 # ( " 0 " +8 IR# ». K >,2> + " --- " a GOBI.JB 1 330 a 
NEXT a RETURN 

3499 REM— -SUB -"DECODAGE OPER. 

3500 0O8UB35 1 0 • OP*“M I D# (F# <C,L> , 2,LEN <F* <C,L) > -2) a RETURN 
35 1 0 OVAL < LEFT* ( OP# ( K ) , 2 > > a L»VAL ( R I GH T * ( OP* ( K > , 2 ) > a RETURN 

V>.3S|£40RÈM7“^ p: 

35 15 IF (R»l > # < L0—99-LY ) + ( R«2 > * ( LO» 1 > -■»■( R»3 > # ( C0-26-LX > + ( R«4 > * ( CO» 1 > THEN3305 
3517 ONRGO'T 03520 , 3525, 3530a CO-CO-1 a X-X+ia U8R (*627E- ) a I -0 « 0O8UB 1 058 « 0OTO33O5 
3520 LO-LO+ii Y-Y-l « USR (#629F) a J «LY a BOSUB 1045» B0T03305 
3525 L0»L.0-1 a Y-Y+l a USR (*62BA> a J«Oa B08UB1045» 0OTQ33O5 
3530 C0»C0+1 a X-X--1 « USR (#6260) a I«LX a GOBUBiOSBi G0TD3305 
! ..T:;3S39 '.v.:RëH^^^ 2- ::OPER:, ■ y 

3540 .OP# <0> »STR* (KM-l > a A* (C, L> «" " a F* (C, I '■ " a Arwi IR1 330a I FK-KMTHENK-K 1 a 80T03300 

3545 FOR I »K+ 1 TOKM i OP* < I - 1 ) «OP* ü)i NE X I" « K»K~ 1 « 001 03300 
: -ï *r F’ 'V'I'iéï rr 

3550 CURS0R5, 23 1 PR INT "Nouveau numéro a " a « 0OSUB9878 IFV>KMTHEN3550 

3555 00*» OP# (F > i()F‘*(l IH ,KMTHENf ()R1«"M 1 I 01 Ma OP* ( 1 1 ) =-()F’* ( I > a Nt- X T 

3560 FOR I “KM- 1 T0V8TEP- 1 a OP# < I + 1 ) «OP* < I ) a NEXT' a OP# < V ) «00# a (30SUB 1327 s B0T0330 1 

3570 CUR80R5, 23a PRINT"v»r» operation numéro ?V i a BÜSUB987J IF (V»0) + (V>KM) THEN33 
05: 

3572 K«V s 008UB 1 327 a 00T03305 

4999 REM-* —-LECTURE /ENRIiB » - - 

5000 ON ERROR 80T057QQ a FE« 1 a FT» 1 a R#» " LECTURE /ENREB I S FREMENT " a REST0RE2007 0 a GOSUB 
1350a ONR0OTO35OO 

5005 FT»1 a R#«»ENRE0I8T REMENT " a GÜ8UB56008 KM«VAl. (OP* (0) > 

50 1 0 W0P6 m 1 , F # a PR I N î 41 , LM , CM , KM , CA , L A , CB , LD* 1*001-“ 1 F OCM a F U R 3 1 1 01 M a FR 1 N I # 1 , A* ( I 
,J> , F* ( 1 , 3)8 NEXT J , I a FORI«OTOKMa PR INT# 1 , DP# ( I ) i NEXT « CLOSE# 1 a BOSUB 1 400 « BOTO 1 600 
5500 FT» 1 a R*» " LECTURE " a G0SUB560O 

5510 R0FEN#1 ,F#a lNRJTttl , l M, CM, KM, CA, t A, CB, L.BI F0R1-1 TUCMa F0R3-*1 FOLMa 1NPUÎ#1,A*(I 
, 3 ) , F# CI , 3 ) 8 NEX1M , 1 8 FOR I “0 FOKM a 1 NPU (#1 , OP* <1 ) a NEXT» CLOSE#! « BOSUB 1000 a BOSUB 1600 

5599 REM- -SUR- -SAISIE Fl FRF 

5600 RE8T0RF200808FA»! a FE-1 a B08UB 1 355: CURS0R33, 10a INPUT " " S A# a BUSUB5605 a CURS0R3 1 
, 1 4t PR IN F" Diamiette H.V.P. puj a Hf'ACf 11 a Ü0SUB9U<> 

5602 CURSOR 31, 14a PRtNT "■■■■■ C o«il parta > ■■■■■i" a RE 1 IJK'N 
5605 .F#»" F a F0RI»1T01. 6* C#“MID# <A#« 1,1) a IFC#< >""*"THENF# nl F#+C# 

. . 5610 'NEX'T a RETURN 

5 /on ( URBURU, 14a IF fcRN«4o I HFNPK I NT "■! le Tnh o n n> i ste ■*"abUT0'/4o 
5710 I F < ERN=--50 ) + < ERN»4 :l ) T HENPR I NT " MMMM DISQUE FTE 8.V.P. ! 1 a 0OTO574O 

5720 I FERN“42TMENPR I NT " IMH Nom dej '« ut ï 1 i se ! I ! MM" a GOT05740 
5730 IF <ERN*53) + (ERN«51 ) T HENPR INT "■ Pluaa de place., DESOLE! ■" a 0OTO574O 
5735 FRI NT." Erreur "! ERN! " en Upne"aERL 
5 740 MUS I C " CCACRRR " a G0SUB980 a BOSUB 1 400 1 00 V05000 

5999 • RÉM : I MPR I MANTE----- 

6000 FT»l-a R#» "SORTIE SUR IMPRIMANTE" a RE8T0RE20090» BOSUB 1350 |:ÇUR8OR20, 7a .INPIJT " " a 

A*aGaSUB5605 / . ./J i 

6005 CURS0R20, 7a PRINT"Entr«as les colonnes a imprimer " a PRINTTAB (31 ) ü "MAX 8"«PR1N 
TTAB<23) a " a PR I NTT AB <23 ) « a L*»'".". a FORT»! T08 

■ ' • '-6010 • 0QSUB9SO8 IFR“1'3THENI»S« 0OTO6.O3O. 

6015 IF <R«32> + (R>à4).#'(R<6S+CM) THENL*»L#-+R*« PR.INTR#» a .« QOTOéO.S^ 

6017 IF (R»7> * ( I >1 > THENI»! 1 « PRINT"tti-«^P«»U •♦" « a GOF06010 

6019 IF <R“7) *(!«!) THEN6055 : 

6020 1FR«63THENP0KE#6202, #E5a PDKE#62 1 (B , #E5 a FE»0 a RE8T0RE20 1 00 a BOSUB 13S0a P0KE*620 
2 , *F0 a PÜKE*62 1 0 , *F0 a B0T060 1. 0 

6025 MUS I C " AA " a GDT060 1 0 

^ 6030 NEXîaPRINT"11 -fin "a .IFL*»"" THEN6055 ■ 

6035 CURS0R18, 15. a PRINT" Prep*r®a .V Imprimante S.V.P. . pui» SPACE "«G0SUB980 
6040 PABE/F728 PRINT /PCHR#'( 18) ( F#a PRINT/Pa FORJ»tTOL.Ma F0RI«1.T0LEN (L#) s V«ASC (MID* < 
L,*, 1 , 1 > ) a IFV»32THENA*»8PACE* (9> a G0T06050 
6045 A#«A# < V--64 , 3 ) a GOSUB 1 08 1. 

6050 PR I NT /PA* a a NEXT I a PR I NT /P « NEXT 3 
6055 GOSUB 1400 a GOTO 1600 

7499 REM---- -DEFINITION CADRE 

7500 FE- 1 a F T - H R#» " DEF I N I T I ON du CADRE " a REST0RE20050 a BOSUB 1 3Î55 

7502 S1»48*B2»5Ü«'A#»"CQL0NNES TiMes en début du cadre (0,1,2) ?" a 0QBUB759O.a CD-R 
~4Sa 0O8UB753O8 S08UB1 100a 81«78a 82»79a À*» "COLONNE Fixe en Fin de cadre < 0/N ) ?" 

/SOS G0SIIB7590aCF»O» U R«79FHENS W 5a Sl’^oa A#* "1 ETIRE rie la ujl orme < A a i > 
a B0SUB7590: CF“R 

7510 Q08UB75B0a GOSUB 1 100 a 81 “48 a S2“50* A#“" LIGNES Fixes en début du cadre (0,1,2) 
?" a G08UB7590I LD»R-48a G08UB7580a GOSUB ,1200 

7516 8 1 »7Sa 82-79 a A*« "L I BNE Fixe en Fin de cadre ( 0/N ) ?":G0SUB7590 
7517 LF-08 iFR»79THENDUR80Rl 1 , 12» PR J N rSPACE* (45) a CURSOR 16,,1 2 a PR INT "NUMERO de lip 
ne Fixe ( de 01 a 99 > " « a B08UB967a LF«V 

7520 B08UB7580 » GOSUB 1 200 a S I «78 1 82»79 a A*“ " DeF i n 1 1 i on: 0, K . ? UlMB.fiM . " a G0SUB7590 a 
IFR»78THEN7ïï'02 

7530 X»X+ (X-LX) * (X>LX> « Y«Yi- (Y -LY> * ( Y >L Y ) a XO«Xa YO* Y a BOSUB 1400 a BOSUB 1 000 a GO 101 600 
7580 L.X»7-CD+‘(CFOO) a LY-17-LD+ (LFOÔ) a pOKE#6258, 3+9*CDa.P0KE#6259 : ,:9#: (LX+1 ) a PQKE# 
625B , 3+LD a P0KE*'625C , LY +1 a LÜ«L0+ (L0-LD--1 ) * ( LO<LD+.l ) a CO«CO+ (C0-CD--1 ) * (COÇCD+l > 

7585 RETURN 

7590 CURSOR 1 1 , 1 2 « PRI NTBPACE* < 45 > a CUE80R33--LEN < A* > V2 , 1 2 a PR I NT A# ! 

7592 0O8UB98O a I F '( < R‘< S 1 ) + < R >82 ) ) * < R< >63 ) THENMU8 1 C " F " a Q0T07592 

7593 I F R » 6 3 T H E N P 0 K E # 6 2 0 2 , #E5 a F0KE*62 1 8 , *E5 a FE«0 a RE8T0RE20060 a BOSUB 1 350 a P0KE#620 
2, *FOa PQKE*621B, *FOa B0T07590 

7594 RETURN 

19999 REM- — ----MENU PRINCIPAL--— 

: : 20000 DATA6, 40, 3* 15, "1; Entre©®", "2 'Définition du cadre", "3 Lecture : / Enreqistre 
ment", "4 Sortie sur imprimante" , "5 Operation® / tableau" 

20001 DATA" 6 Fin du travai 1 " , 49, 54 

20010 DAT A4, 60, 3, S, "Entre® de® nombre» dan® le» c.a»e®","+ * / opèrent directe 

ment ®ur la case" , "CLR efface HOME positionne" 

20011 DATA" A a 1 a transfert du contenu d'une ca»©", 63, 63 

20015 DATAS, 60,3,8, "■ a ‘ entre® ® « transfert de la Fonction", "TAB a le» .cale 
ul» «ont execute»"," FONCTIONS PROGRAMMEES:» 

20016 DATA "pour les lianes a SSOML S)M0YL ®MAXL ®MINL", "pour le» colonne» a 
®80MC ©MOYC ®MAXC ©MINC",63,63 

20020 DAT A7 ,70,3,5, " Le» touche® 1 aunes déplacent le curseur", "Ft-H Déplacent la 
fenetre sur la f eui 1 le" , "HOME positionne le curseur en un point de la Feuille" 

20021 DATA "Les texte» peuvent occuper plusieurs cases" , "CR Fait un retour a la 
1 icine" , "DEL efface la dernier© lettre entre®", "CL.R efface la case", 63, 63 

20050 DATAS, 58, .7,6,""', "",0,0 

20060 DATA7, 40, 3, 35, " Il est possible de def i ni r " , "de® lien®» ou colonne® Fixes" 
«"en début di® cadre (max 2)"," colonne»: A ou B"," liqnesa 01 ou 02" 


20061 DATA "et une colonne ou liane" « "en. Fin de cadre au choi x . . . " , 63 , 63 
20070 DATAS , 60 ,3,10," 1 Lecture " , " 2 Enr ©9 i strement " , " " , 49 , 50 

20080 DATA2, 60, 6, 10, " Nom du Fichier: -","",0,0 

20090 DATA4,5?. 3, 10, » Titre a %»%»",»», o, 0 

20100 DATA6* 40, 3, 35, "Impression des colonnes A a Z", " ", "lianes 1 a la dernier© 
liane "«"definie dans le tableau. ", "SPACE: saut de colonne" , "CP a f in" , 63, 63 

20110 DATA6, 70,3, 5, "Les touche» jaunes déplacent la Fenetre" , "HOME positionne s 
ur un autre No","CL.R efface INST chanae de No CR modifie 1 ’ operation" 

20111 DATA "SPACE déplacement de No en No", "8HIFT+RV8 modifie le «en» du deplac 


TABLEUR 2 


i: 

i OO GOSUB 1 400 a CURSQRO , 22 a PR I NTSPACE* (79) 

1 50 FORK» 1 TOVAL < DP* < 0 ) ) a 0P*»CIP* < K ) a C--VAL ( LEFT* < DP* , 2 ) ) a L-VAL < R I BHT# ( OP* ,2)MF*< 
C, L) «RI BHT# < 11 0 " +BTR# (K),2>+F*(C«L>a NEXTK 

200 FE«1 a FT«lt R*» " OPERAT 1 0N8 /TABLEAU " a RE8T0RE20030I B08UB1350I 0NR80T07 100, 7200, 7 
300 , 7400 a GOSUB 1 400 a FORK» 1 T050 a OP* ( K ) « " " a NEXT 
250 FORC-lTOCMa FORL» 1 TQLM a F #«F - # <C, L) a IFLEN (P*) <2THEN300 

255 K»VAL (LEFT* (F*, 2) > 8 F* (C, L.) «MID* (F*. 3, LEN (F*> > a OP# (K) «RIBHT# ( "0"+STR# (C) ,2> + 
R10HT# ( "C+STR# (L) ,2) 

300 NEXTL, Cs FORK-1T049: IFOP* (K) «" " THENFOR 1 «KT049 a OP# ( I > “OP* ( 1 + 1 ) s NEXT I a OP* (50) » 


310 NEXTK a KM»Oa FDRK-1 TOSOa IFOP# (K>< >" "THENKM-KM+l 
320 NE XT a OP* (0) «STR# (KM) a END 

980 GETR#a IFR#«" "THEN980 

98 1 R—ASC ( R* ) a RETURN 

982 G0SUB980 a I F (RC 48 ) +■ ( R >57 ) THEN982 

983 PR I NTR# S a RETURN 

985 808UB980 a I F ( R< 65 ) + (R >9 0 ) 1 HEN985 

986 PR I NTR# ! a ro«R- 64 a RETURN 

987 G0SUB9828 V#*R#a BOSUB982: V#»V*+R#a V«VAL < V*) : RETURN 

|:5I ; 3|9/RlM|l|llplFli;iil/:|i|ii|i|;la^»i ; ||l:is::;>||:g 

1350 USR (#6200) a REM Mise en mémoire écran 

1355 PX»GSRH: PY-CSRVI READNa P0KE*6253, 2#N+4a READRa PQKE*6256. Ra READCY, CX a CURBORCX 
, CY * USR (#6220 a R»R~6a C X-CX+2 a PR I NT " 4 I " a STRING* (""'•"« R- 1 ) a 
1360 IFFTTHENFT»Oa PRINTTAB (CX) 8 " I "S Î'AB (CX + 1+R/2--LEN (R*> ) a a FORI 1-1T0LEN (R*> a PRIN 
TMID# (R*, 1 1 , 1 ) ( » " ! a NEXT a PR1MTTAB (CX+R) 5 "1" a BOSUB 1405 
1365 FORI 1-1T0N8READR*: PRINTTAB (CX) 8 " I " ? R*a 1 AB (CX+R) S "1" a SDBUB14Q5: NEXT 
1370 PRINTTAB (CX) ( STRING* <"■", R+l ) a READR1 , R2: PRINTTAB (CX+R/2) ? "Il"a » CHOIX ? " 

1 390 GOSUB980 a I F ( R< R 1 > + ( R >R2 ) THEN 1 390 

1395 R—R-R 1 + 1 a CURSORPX , PYa IFFETHENFE-O* RETURN 

1400 USR (#6216) a RETURN 

1405 PRINTT AB (CX ) S " I "a TAB (CX+R) a "Ü" a RETURN 

7 1 00 FT» la R*»" EFFACEMENT " ï B08UB7450 s B08UB7470 a I FR#* 8 )" N " THENGQSUB 1 400 a B0T07 1 30 
7 1 05 GOSLJB 1 400 a 0NV0B0T07 1 20 a I FRO >CM t HENB08UB7465 a BUT 07 1 00 

7115 C»RO« FORL™ 1 TOLM a A* ( C , L > « F# ( C , L, ) = " " a B0BUB8000 a NEX T a B0T07 1 30 

7 1 20 I F V >LMT HENBQSUB7 465 a GOTO? 1 00 

7125 L-Va FORC-lTOCMa A* (C, L)-" » a F# (C, L) » NEXT 

7130 GOT 0200 

7199 REM PERMUTATION 

7200 FT» 1 a R#» " PERMUTA' T ION": B08UB7450 a W»V a R 1 «RO a CURBQR40 , 1 1 -2* ( VO-2 ) a PR I NT "avec 
?4»»a a QNV0G08UB987, 985 a (B0SUB')'470a IFR#« ,, N"THENBOSUB1400aGOT07130 

72 1 0 GOSUB 1 400 a 0NV0BDTÜ723O a I F ( R 1 >CM > + ( RO >CM ) THENG0BUB7465 a B0T07200 
7225 FORL.» 1 TOLM a R*«A* (RI , L) a A* (RI , L) -A# (RO, L) a C«R1 a BQSUB8000 a A* (RO, L) »R*a C«ROa G 
OSUBBOOO: R*=F* (RI , L) a F* (RI , L) «F* (RO, J ) a F# (RO, L) =R*a NEXT: B0T07130 
7230 I F < W >LM > + < V >LM ) THENB08UB7463 a 80T07200 

7235 FORC» 1 TOCM a R*«A* ( C « W ) a A* ( C , W ) =A* < C , V > a L=W a 8ÜSUB8000 a A* ( C , V ) »R# a L»V a G0SUB80 
00 a R*=F# ( C , W ) a F* < C , W ) =F* ( C , V > a F* ( C , V ) ®R* a NEXT a GOTO? 1 30 

7299 REM INSERTION 

7300 FT-1 a R*=" INSERTION" a B0SUB7450* BOSUB 74 70 a 1 FR*» " N " THENBOBUB 1 400 a GOTO 7 1 30 
7305 GOSUB 1400 a 0NV0G0T073208 I F ( RO >CM ) + <CM»26) THENB08UB7 465* 60107300 

7315 CM-CM+1* FORL» 1 TOLM a F0RC-CMT0R0+ 1 8TEP 1 a A* (C, L)«A# (C-l ,L> a GOSlJBSOOOaF* (C, L) 

“F# < C- 1 , L ) a NE XTC a A* < RO , L ) » " » a C-RO a G08UB8000 a F* < RO , L. > « " " a NEXTL a GOTO'7 1 30 
7320 IF (V>LM> + ( LM-99 > THENG08UB7 465 » B0T07300 

7325 LM-LM+1 a FORC-lTOCMa F0RL-LMT0V+18TEP-1 a A* (C, L) «A* (C, L-l ) a G0SUB8000: F# (C, L) » 
F* (C, L--1 ) s NEXTL., a A* (C, V) »" " a L»Va B08UBB000: F* (C, V) -» " a NE X TC a GOTO 7 1 30 

7399 REM--- SUPPRESS I ON - 

7400 FT-la R*«« SUPPRESS ION" a G0SUB7450 a GQSUB7470 a I FR#»“N" THENB08UB 1 400 a B0T07 1 30 
7405 GOSUB 1 4Q0 a 0NV0B0T07420 a IF (RO>CM) + (CM-1 ) THEN80SUB74658 0OTO73OO 

7415 FORL» 1 TOLM a FORC=RO T'ÜCM a A* ( C , L ) «A* ( C+ 1 , L. > a BOBUBBOOO a F* ( C , L > «F* ( C+ 1 , L ) a NE X TC 
a A* (CM, L) «" " * F# (CM, L) »" " a C»CMa G0SUB8000: NEXTL a CM=CM-1 a GQT'0'7 130 
7420 IF (V>LM> + (LM-1 > THENB08UB7465: B0T07400 

7425 FORC» 1 TOCM a FQRL.=VTOL.M a A* (C, L) =A* (C, L..+ 1 ) a GUSUB8000: F# (C, L.) «F* (C, L+l ) a NEXTL: 
A* ( C , LM ) » " " a L»LM a BOSUBBOOO a F* ( C « LM ) « TC a LM-LM- 1 a GOTO'7 1 30 

7449 REM AFF I CH AGE +CHO I X 

7450 RESTQRE200408 FE-1 a GDSIJB 1355 

7452 VO«R a CURSOR 1 7 , 11-2* <VO«i> a PR INI SPACE* ( 10) a CURSOR 17,1 1-2* (V0»2> a PRINT" "*,T 
AB < 28 ) ( "... . Toi" 5 a 0NV0S0SUB987 , 985 a R ETURN 
" : ^ 459: ; : RÉH442 V ; 

7465 CURSORCSS, 178 PRINT " ERREUR ! » il MUS IC "FGF BRRR" a RETURN 

"7470 CURB0R35, 17a PRINT" O.K.? 1UB1M " a G0SUB980S RETURN 

7999 REM— -AFFICHAGE. CASE— - 

8000 X-C COi Y-L-LO: A*»A*(C,L > a IFA*»" 9" VHENA*»T# 

80 1 0 I FA*™ " " THENA*«SP ACE* < 9 ) 

80 12 I F < X < 0 > + < X >1, X ) + ( Y < 0 > + ( Y >L. Y ) THENB020 
8015 CUR80R3+9* ( X+CD) , 3+Y+LDi PRINTA* 

8020 IF (C—CF-64) * <Y>»0> * <Y<-LY> THENCURS0R67, 3+Y+LDa PRINT'A* 

8025 IF (L..-L.F) * <C>«C0> * <C< «CO+LX ) THENCURS0R3+9* < X+CD) , 20 a PRIN1 A* 

8030 RETURN 

20030 DATAS, 50, 3, 10, " 1 Effacement liane ou col ont*©" , "2 Permutation 11 , "3 Insertio 
n" , "4 Suppression" , "5 Retour, menu aener al " , 49, 53 
20040 DATAS, 50, 7, 10, " 1 Liane"," 2 Colonne"," ",49,50 




L — — pr- 

SHOGUN (S) CROAKER (*) REVERSE (*) **^HUNCHY {*) 


Excellent jeu de réflexion en langage 
machine. D'origine chinoise, il combine les 
stratégies des jeux de dames et d'échecs. 
Le niveau de réflexion est le même qu'aux 
échecs. MZ est votre partenaire, attention, 
il est très fort. 

Prix : 123 F. 


SPACE GUERILLA (#) 

Jeu très rapide en langage machine. Vous 
devez défendre votre base située au centre 
de l'écran. Elle est attaquée par des vais- 
seaux spaciaux qui tentent de détruire vos 
protections. A vous de les éliminer sans être 
touché vous même. 

Prix : 138 F. 


SUPER GORGON (*) 

Version en langage machine du très connu 
DEFENDER. Votre vaisseau traverse une 
longue caverne semée d'embûches et de 
nombreux types d'ovnis hostiles. Un dur 
combat sonore et graphique ou il vous fau- 
dra beaucoup de détermination et 
d'adresse pour gagner. 

Prix : 151 F. 


SKY CHAOS (*) 

Original rapide et plein d'embûches, ce jeu 
est dérivé du célèbre SPACE PAN IC. Des 
étages, des échelles et des vilains monstres 
que vous devrez faire sombrer dans des 
trous que vous aurez préalablement creu- 
sés à l'aide de votre seul moyen de 
défense : un marteau... Demande un sang 
froid à toutes épreuves. 

Prix : 126 F. 


GALAXOIDS (*) 

Nouvelle version de SPACE INVADERS très 
rapide, aux multiples tableaux et aux effets 
sonores surprenants. 

Prix : 114 F. 


LASER BLASER (*) 

Une course contre la montre ou vous devez 
détruire un maximum d'intrus visibles à 
l'écran. Attention votre arme peut se retour- 
ner contre vous. Très coloré et sonore. 

Prix î 76 F. 


Votre grenouille devra traverser une auto- 
route sans se faire écraser, traverser une 
rivière sans se noyer pour gagner son logis. 
7 niveaux à difficultés croissantes. 

Prix : 76 F. 


STARTREK (*) 

Jeu de rôle aux possibilités infinies. Votre 
vaisseau spatial doit remplir sa mission. 
Pour cela vous devez résoudre une multi- 
tude de problèmes : attaques ennemies, 
avaries, pannes. De très longues parties 
sans cesse renouvelées. 

Prix : 76 F. 


3D NOUGHTS 
& CROSSES (*) 

Si vous pensez que le jeu de MORPION est 
un d'enfants, essayez-le en 3 dimensions ; 
cela vous promet de longues heures de 
casse-tête. 

Prix : 76 F. 


PUISSANCE 4 (*) 

Un classique des jeux de réflexion. MZ y est 
redoutable, rapide et graphique. 

Prix : 76 F. 


BOMBERMAN (*) 

A la recherche du trésor du labyrinthe. Un 
jeu passionnant en langage machine où 
vous devrez prévoir le passage de vos enne- 
mis en plaçant des bombes à retardement. 
Découvrir le trésor demande beaucoup de 
patience et d'adresse. 

Prix î 107 F. 


GUNMAN (*) 

Pour retrouver ce diamant au Far-West, il 
vous faudra affronter 5 tribus d'indiens de 
plus en plus hostiles. Un seul allié, pour 
cela, votre fidèle 6 coups mais ce n'est pas 
facile. 

Prix : 107 F. 


CANNON BALL (*) 

Un boulet de canon vous menace, quand 
votre rayon laser l'atteint, il se divise en 
deux, puis en quatre, puis en huit. Un jeu 
passionnant, pour tous les âges. Rares sont 
ies vainqueurs. 

Prix : 107 F. 


Jeu d'OTHELLO sur grille 8x8. Le but 
suprême du jeu est de battre l'ordinateur 
par 64 à 0 ; mais cela demande de très 
nombreuses heures d'entrainement à ce jeu 
passionnant. 

Prix : 107 F. 


SUBMARINE SHOOTER 

n 

Une version sous-marine de DEFENDER où 
il vous faudra vous débarasser de nom- 
breux ennemis aquatiques et éviter les dan- 
gereux fonds sous-marins avant de refaire 
surface. 

Prix : 107 F. 


ZEXAS ($) 

Ce jeu exploite à fond toutes les possibili- 
tés graphiques et sonores du MZ-800. C'est 
un combat spatial en 3 dimensions aux mul- 
tiples rebondissements et tableaux succes- 
sifs. Les dessins sont superbes, le rendu gra- 
phique de l'action en 3D n'a rien à envier 
aux meilleurs jeux fonctionnant sur conso- 
les spécialisées. Fonctionne avec JOY- 
STICKS ou clavier. 

Prix : 146 F. 


FLAPPY ($) 

Flappy est certainement le meilleur jeu 
actuellement implanté sur MZ-800. C'est un 
jeu de réflexion très graphique où chacun 
des 200 tableaux (oui ! deux cents), repré- 
sentent un véritable casse-tête à résoudre. 
La résolution de tous ces tableaux demande 
plusieurs mois de recherche et d'essais que 
Flappy, le héros du programme, exécutera 
en réponse à vos ordres. 

Prix : 146 F. 


GOBBLER (*) 

Un classique des salles de jeux, en langage 
machine, qui vous demande adresse et 
réflexion. Chaque tableau gagné provoque 
la création d'un nouveau tableau, toujours 
différent mais plus difficile. Ainsi, le jeu n'est 
jamais identique. 

Prix : 76 F. 


Reconstitution très graphique de la fabu- 
leuse histoire de Quasimodo voulant déli- 
vrer Esméralda. Quasimodo devra passer 
par 9 tableaux successifs à difficulté crois- 
sante et affronter de nombreux dangers 
avant de retrouver sa bien-aimée. Il vous 
faudra être un Quasimodo super entraîné 
car Esméralda n'est vraiment pas facile à 
approcher. 

Prix : 114 F. 


COSMIC SMACH (*) 

Jeu d'adresse où vous devrez lutter contre 
de féroces insectes qui en veulent, bien sûr, 
à votre vie. Attention, il y a de nombreux 
pièges à éviter, même de très sournois. 

Prix : 114 F. 


ASTEROID BELT (*) 

Un sauvetage spatial graphique. Vous 
devrez traverser l'écran infesté d'astéroïdes 
de votre MZ pour sauver des astronautes 
échoués sur une base spatiale. Un jeu 
d'adresse très difficile car les astéroïdes se 
déplacent aléatoirement dans tous les sens. 
Graphisme très réussi. 

Prix : 114 F. 


ASTRO BLASER (*) 

Jeu graphique très rapide où seul, le réflexe 
compte. Tentez de désintégrer les astéroï- 
des avant quelles ne vous écrasent. Plus 
vous les détruisez, plus elles sont nombreu- 
ses. Un jeu infernal qui demande des nerfs 
d'acier. 

Prix : 114 F. 


UFO (*) 

Version améliorée de SPACE INVADER gra- 
phique et colorée. Il faut détruire les ovnis 
des couloirs avant que ceux-ci ne vous tom- 
bent dessus. Le rythme devient vite infernal 
mais avec une longue habitude, on ressort 
vainqueur de ce long combat. 

Prix : 76 F. 


□ □ 




BULLETIN D'INSCRIPTION AU CLUB DES SHARPENTIERS 


□ Je m'inscris 

au CLUB DES SHARPENTIERS 


NOM PRÉNOM 

ADRESSE . . . 


Je suis abonné pour 1 AN 
au BULLETIN du CLUB 

Je vous joins mon règlement 
FRANCE : 160 F 

ETRANGER : 200 F 

CHEQUE N° BANQUE 



CODE POSTAL / VILLE 


PAYS 

PROFESSION ÂGE ... . 

MACHINE POSSÉDÉE DEPUIS 

ACHETÉE CHEZ 


UTILISATION PRINCIPALE DE VOTRE MACHINE 

n°16 


Club des Sharpentiers 151/153, avenue Jean-Jaurès 93307 AUBERVILLIERS CEDEX Tél : 48 349344 





